Ach ja ... da war ja noch was
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:= (anzahl / length(wort))*100;
end;
Es wäre besser wenn alles zu kontrolle groß oder klein geschrieben wird.
