Zitat von
himitsu:
Dank der Compilermagic ja wobei die es wohl etwa so machen wird, was bestimmt das Schnellste sein wird ^_^
Delphi-Quellcode:
s := Edit.Text;
i := Min(Length(s), Length(Versuch) - 1),
Move(s[1], Versuch[Low(Versuch)], i);
S[Low(Versuch) + i] := #0;
Sorry, aber es funktioniert alles nicht !
