procedure tauschen

[Pr0g]

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