jetzt sag mal, was willste denn hier überhaupt machen...
Delphi-Quellcode:
[b]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;[/b]
ich komm da irgendwie nicht drauss... was das soll ...
