ReverseString für ältere Delphi-Versionen

[Wolfgang Mix]

Wie aus diesem Thread http://www.delphipraxis.net/internal...109571#1109571
hervorgeht, fehlt die Funktion ReverseString in älteren Delphi-Versionen. Daher lege ich als Ersatz
meine Komposition noch einmal hier ab, damit man sie auch findet.

Delphi-Quellcode:

//Wolfgang Mix - Delphi-PRAXiS
function ReverseString (MyString: string): string;
var HelpString:string;
    i:integer;
begin
  HelpString:='';
  for i:=length(MyString) downto 1 do
  HelpString:=HelpString+MyString[i];
  result:=HelpString;
end;

//Usage
procedure TForm1.Button1Click(Sender: TObject);
var String1,String2:String;
begin
  String1:=Edit1.Text;
  String2:=ReverseString(String1);
  Edit2.Text:=String2;
end;

Gruß

Wolfgang