Wörter Zählen in String?

[Ginko]

Vielleicht so in der Art:

Delphi-Quellcode:

  for i:=0 to length(edit1.Text) do
    begin
      if edit1.Text[i] = ' ' then
        inc(zaehler);
    end;
    label1.Caption := inttostr(zaehler+1);