String durchsuchen

[Airblader]

Oder so:

Delphi-Quellcode:

sBla: String;
iFound: Integer;

iSearch: Integer;
sSearch: String;
...

sBla := 'Dies ist ein TEST und der TESTet jetzt mal TESTweise auf das Wort TEST.';

iFound := 0;
sSearch := 'TEST';
iSearch := Pos(sSearch, sBla);

while((iSearch > 0) AND (Length(sBla) > 0)) do
begin
   Inc(iFound);
   Delete(sBla, iSearch, Length(sSearch));

   iSearch := Pos(sSearch, sBla);
end;

Weiß grad nicht, ob es exakt stimmt, aber das ist die Methode
Solltest du sBla nicht verändern wollen, kopierst du es einfach in einen temporären String und benutzst den

Edit: Oder als Funktion (ungetestet, kann sein, dass da das ein oder andere +1 bzw. -1 gemacht werden muss)

Delphi-Quellcode:

function CountWord(SubStr, SearchStr: String): Integer;
var
   iFound, iSearch: Integer;
begin
   iFound := 0;
   iSearch := Pos(Substr, Searchstr);
 
   while((iSearch > 0) AND (Length(SearchStr) > 0)) do
   begin
      Inc(iFound);
      Delete(SearchStr, iSearch, Length(SubStr));

      iSearch := Pos(SubStr, SearchStr);
   end;
 
   Result := iFound;
end;

air