Funktion die mir sagt, wie oft ein String vorkommt

[cYaONE]

Servus,

gibt es eine Funktion die mir sagt, wie oft ein String in einem anderen String vorkommt?

[Chewie]

Pos bzw AnsiPos.

Edit: Ach Quatsch, ich sollte vielleicht genauer lesen

Eine fertige Funktion gibt es bei Delphi meines Wissens nicht, aber du köntest Sakuras Pos-Ersatz benutzen und LastPos immer auf die Position des letzten gefunden Substrings setzen.

Also irgendwie so:

Delphi-Quellcode:

var
  str, substr: String;  //str ist der String, substr der gesuchte Substring
  cnt, pos: Integer;
begin
  cnt := 0;
  pos := NextPos(substr, str, pos);
  while pos > 0 do
  begin    
    Inc(cnt);
    pos := NextPos(substr, str, pos);
  until;
  ShowMessage(InttoStr(cnt));

[cYaONE]

Vielen Dank! Ich werds ausprobieren