Hey
Ich würde es persöhnlich mit einer Schleife machen, Rekursion ist nicht so meins. Hier ist der Code den ich verwenden würde.
Delphi-Quellcode:
function Wortumkehr(Text : String) : String;
var i : integer;
begin
Setlength(result,0);
for i := length(Text) downto 1 do
begin
Setlength(result,length(result)+1);
result[length(result)] := Text[i];
end;
end;
procedure TForm1.Aufruf(Sender : TObject);
begin
Edit2.Text := Wortumkehr(Edit1.Text);
end;
Ich hab ihn frei getippt, deswegen können Tippfehler drin sein.
_______________
Lg Florian