Как занести строку в переменную в инвентируемом виде?

← →
Pancha (2004-02-17 18:03) [0]

Подскажите как конвертировать значение строковой переменной, в читаемость с права на лево. Спасибо

← →
Pancha (2004-02-17 18:15) [1]

т.е. чтобы "папа" стало "апап"

← →
just me (2004-02-17 18:21) [2]

AnsiReverseString

← →
default (2004-02-17 18:37) [3]

procedure ReverseString(var Str: String);
var
i: Cardinal;
Ch: Char;
begin

for i := 1 to Length(Str) div 2 do begin
Ch := Str[i];
Str[i] := Str[Length(Str) - i + 1];
Str[Length(Str) - i + 1] := Ch
end;

end;

Как занести строку в переменную в инвентируемом виде? Найти похожие ветки