Delphi-Quellcode:
var
p: Integer;
temp: TStringList;
begin
p := pos(' ', Memo.Text);
while p>=0 do
begin
temp.Lines.Add(copy(Memo.Text, 1, p));
Memo.Text := copy(Memo.Text, p+1, Length(Memo.Text)-p);
p := pos(' ', Memo.Text);
end;
Memo.Text := temp.Text;
Nicht grad auf Performance und Eleganz, aber sollte tun was du willst - denke ich. Ungetestet hier im Browser getippert.
Edit: Deinen Code hab ich dank des furchtbaren Stils erst garnicht versucht zu verstehen, bzw. den Fehler zu finden. Wenn du weisst, dass es Käse ist, warum änderst du es nicht?
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)