Wörter Zählen in String?

[Yakumo500]

HiHo,
Ich habe schon ein bisschen nach dem Thema gesucht und TOKEN gefunden aber ich kapier nicht genau wie das geht.
Kennt jmd eine bessere Methode oder kann mir Token erklären?

Danke im Voraus

[DeddyH]

Hallo und Willkommen in der DP :dp:,

wie würdest Du die Wörter denn manuell zählen? Zuerst musst Du Dir im Klaren darüber sein, wie Du ein Wort definierst. Dann gehst Du in einer Schleife den String durch und überprüfst diese Definition. Am Ende solltest Du die Anzahl der Wörter haben. Das nur so als Denkansatz.

[RWarnecke]

Hallo und herzlich Willkommen,

ich würde das ganze über die Funktion Explode realisieren. Mit dieser Funktion kannst Du einen String anhand eines Trennzeichens in ein Array schreiben. Danach würde ich die Größe des Array's auslesen und hättest damit die Anzahl der Wörter.

[Luckie]

Wenn es nicht so genau sein muss, kann man einfach die Leerzeichen und Zeilenumbrüche zählen.

[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);

[Yakumo500]

Vielen Dank für eure Antworten.
Ich hab nach was gefunden wie es geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Text:string;
    RegExpr: TRegExpr;
    Counter: integer;
begin
  Text := Memo1.Lines.Text;
  Counter := 0;

  RegExpr := nil;
  try
    RegExpr := TRegExpr.Create;
    if RegExpr <> nil then begin
      RegExpr.Expression := '[^][\s//\\(()),,<<>>&&$$..==""!!°°§§%%´´``~~**''##;;::__||++]+';
      if RegExpr.Exec(Text) then
        repeat
          RegExpr.Match[1];
          Counter := Counter + 1;
        until not RegExpr.ExecNext;
    end;
  except
  end;
  RegExpr.Free;
  ShowMessage(inttostr(Counter));
end;