Как получить 6 последних символов в строке?

[m@tem@tik]

Как получить шесть последних символов в строке?

[FaTaL]

s := Copy (s, Length(s) - 6, Length(s));
где s - исходная строка

[Stilet]

...:=copy(s,length(s)-6,6);

[Человек_Борща]

как-то так:

 for i:=Length(myStr) downto 1 do
 begin
   If (i >=(Length(myStr)-6)) then
   REsult:=Result+myStr[i];
 end;

[Serge_Bliznykov]

Сообщение от Stilet

...:=copy(s,length(s)-6,6);

+1

только я бы проверку поставил на то, что Length(s)>6:

function LastNChar(const s : string; N : integer) : string;
begin
  if length(s)>N then result := Copy(s, length(s)-N, N)
  else result := s;
end;

[Stilet]

я бы проверку поставил

Нет смысла. Такие проверки внутри сору есть, именно поэтому способ Фаталя тоже сработает.

[Serge_Bliznykov]

Сообщение от Stilet

Нет смысла. Такие проверки внутри сору есть

согласен.
не знал. думал, будет ошибка. проверил, вроде бы Вы правы - всё работает, ошибок нет.

[superedward]

s:=RightStr(s,6)

[Serge_Bliznykov]

superedward,

во-первых, модуль StrUtils не во всех версиях Delphi есть (в Delphi 5, например, нет)

а во-вторых,
если посмотреть исходники этой функции увидим предложенный выше неоднократно способ через Copy:

function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
begin
  Result := Copy(WideString(AText), Length(WideString(AText)) + 1 - ACount, ACount);
end;

Внимание!
в решениях выше допушена ошибочка. нужно добавлять единичку к длине строки:

 ..... := Copy(s, Length(s)+1-6, 6);

[superedward]

Сообщение от Serge_Bliznykov

superedward,
Внимание!
в решениях выше допушена ошибочка. нужно добавлять единичку к длине строки:

 ..... := Copy(s, Length(s)+1-6, 6);

Решение с RightStr не единственно верное, но наглядное и простое.