ja wenn wir beim Programmstyle schon sind sollte man noch einiges erwähnen...
Also ehrlich gesagt tu ich mir beim Lesen des Codes sehr schwer.
Bisserl umständlich? Und warum 2x hintereinander ein Leerzeichen löschen?
Delphi-Quellcode:
Text1:=copy(Memo1.Text, 1, length(Memo1.Text));
szeichen:=copy(Text1, length(Text1), length(Text1));
if szeichen=' ' then delete(Text1, length(Text1), length(Text1));
szeichen:=copy(Text1, length(Text1), length(Text1));
if szeichen=' ' then delete(Text1, length(Text1), length(Text1));
warum nicht so?
Text1 := Trim( Memo1.Text);