Wörter zählen, optmimieren?

[bjacke]

[quote="Aya"]Hi,

ich hab gradmal was versucht...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  cnt, i: Integer;
begin
  cnt:=0;
  for i:=1 to Length(RichEdit1.Text) do
    if RichEdit1.Text[i] = ' ' then
      Inc(cnt);
  ShowMessage(IntToStr(cnt));
end;

Das ist wahnsinnig langsam... aber diese version:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  cnt, i: Integer;
begin
  cnt:=0;
  S:=RichEdit1.Text;
  for i:=1 to Length(S) do
    if S[i] = ' ' then
      Inc(cnt);
  ShowMessage(IntToStr(cnt));
end;

Hier habe ich aber das Problem, dass auch Leerzeichen mitgezählt werden. Ich habe den Quelltext vollgender Maßen ergänzt:
Var i,count:integer; text:string;

Delphi-Quellcode:

count:=0;
Text:=Rich.Text ;
for i:=1 to length(Text) do
if Text[i]=' ' then if (Text[i+1]<>' ') then inc(count);