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;