Relative Häufigkeit,wieoft ein buchstabe in einem wort ist

[Lycanos]

und weil es so schön war ... noch mal. Jetzt geht´s

Delphi-Quellcode:

function blabla(wort:string; buchstabe: char):Extended;
var i, anzahl:integer;
begin
anzahl:=0;
for i:=1 to length(wort) do begin
if lowercase(wort)[i]=lowercase(buchstabe) then begin
anzahl:= anzahl+1;
end;
end;
result:= StrToFloat(Format('%0.2f', [(anzahl / length(wort))*100]))
end;