meine StrCharCount geht nich...

[thkerkmann]

Hi,

Delphi-Quellcode:

function StrCharCount(wort: string; z: string): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(wort) do
    if wort[I] = z then
      Inc(Result);
end;

Du vergleichst hier einen Char wert (wort[i]) mit einem string (z).
Wie soll denn da was richtiges rauskommen?

Du musst den String in einzelne Worte zerlegen und dann mit deinem gesuchten Wort vergleichen.
Dann köntest Du Erfolg haben.

Du suchst doch wort in string oder ?

Gruss