1:
2:
3:
4:

Inputstring = 'halloWelt';
SearchChar := 'l'; //  l= "el" und nicht "eins"

res := GetNumberOfChars(Inputstring, SearchChar); // res = 3					

1:
2:
3:
4:
5:
6:
7:

function TForm1.SubstringFinden(const Text, Suchstring: String): integer;
var i, Anzahl: integer;
begin
  Anzahl := 0;
  for i := 1 to length(Text) - length(Suchstring) +1 do
    if copy(Text, i, length(Suchstring)) = Suchstring then inc(Anzahl);// gibt sicher was besseres als copy grad nur keine zeit zu gucken
end;					

1:
2:
3:

    for i := 1 to Length(s) do
      if s[i] = ' ' then
        inc(m1);					

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

function TForm1.SubstringFinden(const Text, Suchstring: String): integer;
var i, Anzahl: integer;
begin
  Anzahl := 0;
  for i := 1 to length(Text) - length(Suchstring) +1 do
    if copy(Text, i, length(Suchstring)) = Suchstring then inc(Anzahl);
// gibt sicher was besseres als copy grad nur keine zeit zu gucken
  Result := Anzahl // so :D das wichtigste vergessen :P
// soweit ich weis könnte man Anzahl auch weglassen und es so lösen 
  Result:= 0;
  .... then inc(Result);
// dann kann man die letzte Zeile sparen :D (nicht ausprobiert)
end;					

1:
2:
3:
4:

function CountChars(Haystack: String; Needle: Char): Integer;
begin
    Result := Length(Haystack) - Length(StringReplace(Haystack, Needle, '', [rfReplaceAll]));
end;					

1:
2:
3:
4:

function CountNonOverlappingStr(Haystack: String; Needle: String): Integer;
begin
    Result := Length(Haystack) - Length(StringReplace(Haystack, Needle, '', [rfReplaceAll]));
end;					

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

function SubstringFinden(Text, Suchstring: String): integer;
var i, Anzahl: integer;
begin
  Anzahl := 0;
  i := Pos(SuchString, Text);
  while i > 0 do
  begin
    inc(Anzahl);
    i := PosEx(Suchstring, Text, i + Length(SuchString));
  end;
  Result := Anzahl;
end;					

1:
2:
3:
4:

function CountNonOverlappingStr(Haystack: String; Needle: String): Integer;
begin
    Result := (Length(Haystack) - Length(StringReplace(Haystack, Needle, '',[rfReplaceAll])))div length(Needle);
end;					

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

// returns the number of found characters (Note: comparison is case sensitive!)
function GetNumberOfChars(const sInput : string; const chrSearch : char) : Integer;
var
  i : Integer;

begin
  Result := 0;
  for i:=1 to Length(sInput) do
    if (sInput[i] = chrSearch) then
      Inc(Result);
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:

function GetNumberOfChars(const aString : String; const aChar : Char) : Integer;
var
  FCount : integer;
  FFind  : Integer;
begin
  FCount := 0;
  FFind  := ord(aChar);
  asm
    // ****
    // **** Initialisierung
    // ****
    mov eax, aString // ** Der zu durchsuchende String
    mov ecx, FCount  // ** Ergebnis

    @CNT:                  // ** Schleife
    inc eax                // ** Schleifenzähler inkrementieren
    movzx edx, byte [eax]  // ** n. Zeichen holen
    cmp edx, FFind         // ** Vergleiche n. Zeichen mit Suche
    jne @NXT               // ** Nicht gefunden, springe zu Schleifenende
    inc ecx                // ** Gefunden, Ergebnis inkrementieren
    @NXT:                  // ** Schleifenende
    cmp edx, 0             // ** Ende von String ?
    jne @CNT               // ** Nein, also nächstes Zeichen
    mov FCount, ecx        // ** Fertig, Ergebnis zuweisen
  end;
  Result := FCount;
end;