So, hab n Beispiel geschrieben, damit müsstest du es kapieren.
achja, hab n paar fehler in der funktion oben gefunden..., hier verbesserung:
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 wort[i]=buchstabe then begin
anzahl:= anzahl+1;
end;
end;
result:= (anzahl / length(wort))*100;
end;
Greetz by Hux
