Frage zur Synthax

[DeddyH]

Hallo, herzlich Willkommen in der DP. Ich weiß gerade nicht, ob es bereits eine fertige Funktion dafür gibt, aber das ließe sich so realisieren:

Delphi-Quellcode:

function ReverseString(const s: string): string;
var i: integer;
begin
  Result := '';
  for i := Length(s) downto 1 do
    Result := Result + s[i];
end;

Ein Aufruf könnte dann so aussehen:
Edit2.Text := ReverseString(Edit1.Text);