Thema: Delphi procedure tauschen

Einzelnen Beitrag anzeigen

tobiasw

Registriert seit: 11. Nov 2004
156 Beiträge
 
Delphi 2005 Architect
 
#1

procedure tauschen

  Alt 20. Nov 2004, 10:51
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.
  Mit Zitat antworten Zitat