•  

ГлавнаяРабота с текстом и строками → Перевернуть строку 2

Создано: 01.08.2010 19:09:01 · Исправлено: 01.08.2010 19:09:01 · Прочтений: 1022

function ReverseString(s: string): string;
var
  i: integer;
  c: char;
begin
  if s <> '' then
    for i := 1 to Length(s) div 2 do
    begin
      c := s[i];
      s[i] := s[Length(s) + 1 - i];
      s[Length(s) + 1 - i] := c;
    end;
  Result := s;
end;