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