Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
16. Okt 2003
Und bevor ich es vergesse, da gab es doch noch einen dritten Button auf meinem Form:
procedure TForm1.Button3Click(Sender: TObject);
begin
Edit2.Text := ReverseString(Edit1.Text);
end;
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
16. Okt 2003
Zwei Varianten, welche beide das gleiche Ergebnis liefern. Version 1 ist einfacher zu verstehen, Version 2 ist dafür schneller ;-)
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
Input, Output: String;
begin
Input := Edit1.Text;
Output := '';
for I := Length(Input) downto 1 do
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Okt 2003
Okay :mrgreen: Nur irgendwie lag mir das gerade so unter den Fingern. Gut, daß Du Humor hast ;-)
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Okt 2003
Kein Problem - das kam auch erst eine Sekunde später dazu :mrgreen: (Siehe Edit=2) ;-)
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Okt 2003
Ein wenig Mathe (1. Klasse-Level) und schon geht es los:
var
I: Integer;
begin
// vorwärts
for I := 1 to Length(myString) do
ShowMessage(myString);
// rückwärts I
for I := 1 to Length(myString) do