Delphi-PRAXiS - Delphi Funktion die mir sagt, wie oft ein String vorkommt

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Funktion die mir sagt, wie oft ein String vorkommt (https://www.delphipraxis.net/7024-funktion-die-mir-sagt-wie-oft-ein-string-vorkommt.html)

Funktion die mir sagt, wie oft ein String vorkommt

Servus,

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

Re: Funktion die mir sagt, wie oft ein String vorkommt

Pos bzw AnsiPos.

Edit: Ach Quatsch, ich sollte vielleicht genauer lesen :oops:

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

Re: Funktion die mir sagt, wie oft ein String vorkommt

Vielen Dank! Ich werds ausprobieren :)