hi,
ich soll eine Procedure schreiben die ein Wort vertauscht also das Beispiel Test das Ergebnis wäre tset mit nem Button bekomm ich es ja hin. Das sieht so aus nur wie mach ich es mit einer Procedure?
Ich hoffe jemand hat eine Lösung
Gruß
tobiasw
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,zahl:integer;
e1, zwerg, ausgabe:string;
begin
ausgabe:='';
e1:=edit1.Text;
zahl:=length(e1);
for i:=zahl downto 1 do
begin
zwerg:=e1[i];
ausgabe:=ausgabe+zwerg;
end;
edit2.text:= ausgabe;
end;
end.