1:

if PosLen(sSubString, sString) > 1 then                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Vorkommen := 0; i := 0
while i < Length(ZeilesString)-1  do
begin
inc(i);
A := pos(ZeilesString, Suchstring)
if A <> 0 then
   begin
      inc (Vorkommen);
      ZeilesString := copy(ZeilesSting,i+length(Suchstring),Length(ZeilesSting));
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

{*****************************************************************************************************************************************
 *** LIEFERT DIE ANZAHL DES VORKOMMENS VON SUCHWORT IN ZEILE ZURÜCK                                                                    ***
 *****************************************************************************************************************************************}
FUNCTION  StringCount(Zeile, Suchwort : String; Exakt : Boolean) : Integer;

CONST
     Zeich : Set of Char = [' ', '.', ';', ':', ',', '!', '?', ')', '"', '/', '#','%','+','-','*','\',']','}'];

VAR
   z, p, L : Integer;
   EFund,
   Fund    : Boolean;
   W       : Char;

BEGIN
     L      := Length(Suchwort);
     Result := 0;
     Fund   := TRUE;

     WHILE Fund DO
     BEGIN
          p    := POS(Suchwort,Zeile);
          Fund := p > 0;
          IF Fund THEN INC(Result);

          IF Fund THEN
          BEGIN
               Delete(Zeile, 1, p+L-1);

               IF Exakt THEN
               BEGIN
                    W    := Zeile[1];
                    EFund := W in Zeich;
                    IF NOT EFund THEN DEC(Result);
               END;
          END;
     END;
END;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

function StringCount(const Zeile, Suchwort: String; const Exakt : Boolean): Integer;
const
  Zeich: set of Char = [' ', '.', ';', ':', ',', '!', '?', ')', '"', '/', '#','%','+','-','*','\',']','}'];
var
  z, p, L: Integer;
  EFund, Fund: Boolean;
  W: Char;
  CurrentRow: PChar;
begin
  L := Length(Suchwort);
  Result := 0;
  Fund := True;
  CurrentRow := PChar(Zeile);

  while Fund do
  begin
    p := Pos(Suchwort, CurrentRow);
    Fund := p > 0;
    if Fund then
      Inc(Result);

    if Fund then
    begin
      Inc(CurrentRow, p + L - 1);

      if Exakt then
      begin
        W := CurrentRow[0];
        EFund := W in Zeich;
        if not EFund then
          Dec(Result);
      end;
    end;
  end;
end;