•  

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

Создано: 01.08.2010 19:08:31 · Исправлено: 01.08.2010 19:08:31 · Прочтений: 1492

// Перевернуть строку
function ReverseString(s: string): string;
var
  i: integer;
begin
  Result := '';
  if Trim(s) <> '' then
    for i := Length(s) downto 1 do
      Result := Result + s[i];
end;