Hier mit einer Prodzedur. Die Prozedur selber sieht so aus:
Delphi-Quellcode:
procedure TForm1.Tauschen;
var
s, neu: String;
i: Integer;
begin
s := Edit1.Text;
neu := '';
for i := Length(s) downto 1 do
neu := neu + s[i];
Edit1.Text := neu;
end;
In den "prvate" Breich der Form musst du sie auch noch reinschreiben:
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure Tauschen;
Und hier der Code des "Button1":
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Tauschen;
end;
Der Text zum Tauschen steht in "Edit1".
MfG Pr0g