Wörter zählen

[himitsu]

Zitat von Lisa.99:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i, woerter : integer;
    text : string;
begin
woerter:= 1;
 for i := 0 to length (text) do
  begin
    inc(woerter);
    continue;
  end;
  Edit3.Text:= inttostr(woerter);
end;

Das habe ich und für wenige Wörter funktioniert das!

Das glaub ich nicht.

Erstmal ist 0 bis Length Einer zuviel,
dann zählt das die Zeichen und keine Wörter
und zum Schluss sagt der Code immer "2", da Text leer ist.

Continue ist zwar Nutzlos, da nachfolgend nichts mehr in der Schleife folgt, aber es verursacht hier wenigstens keinen Fehler.