Einzelnen Beitrag anzeigen

Yakumo500

Registriert seit: 15. Nov 2008
Ort: Darmstadt
106 Beiträge
 
#6

Re: Wörter Zählen in String?

  Alt 3. Dez 2008, 17:42
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;
  Mit Zitat antworten Zitat