Delphi-Quellcode:
var start,Zeichen:integer;
begin
start :=0;
Zeichen:=RichEdit1.GetTextLen;
repeat
richedit1.SelStart :=richedit1.FindText(' ',start,zeichen,[stMatchCase]);
richedit1.SelLength :=1;
richedit1.SelText :='';
inc(start);
until start=zeichen
end;
Versuch's mal so. Naja, bei 400.000.000 Zeichen wird's mit Integer nicht mehr gehen (IntegerMax: 32767). Musst also LongInt nehmen, dass geht bis 2 147 483 647.
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!