ReverseString für ältere Delphi-Versionen

[turboPASCAL]

Hi,

ich verstehe euren Programmiertechnischen Aufwand nicht.

Delphi-Quellcode:

function ReverseAnsiString(const s: Ansistring): Ansistring;
var i : integer;
begin
  for i := length(s) downto 1 do
    Result := Result + s[i];
end;