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

[Nicole]

dankeschön

[Lycanos]

das Resultat würde ich aber als Extended mit 2 Kommastellen angeben !!:

Result := StrToFloat(Format('f2.00%', [(anzahl / length(wort))*100]));

Ich glaube das wurde so geschreiben :wink:

[Lycanos]

Ach ja ... da war ja noch was :shock:

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. :angel2:

[Lycanos]

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

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;

[Zacherl]

Hallo Lycanos,

du kannst deinen Beitrag auch editieren. Dazu musst du nur auf den http://www.delphipraxis.net/template.../icon_edit.gif Button klicken.

Florian

[Khabarakh]

Zitat:

Zitat von Lycanos

das Resultat würde ich aber als Extended mit 2 Kommastellen angeben !!:

Wozu denn bitte das?

PS: Die zwei LowerCase-Aufrufe kann man noch vor die Schleife packen.

[Lycanos]

:(

Zitat:

Khabarakh
Wozu denn bitte das?

Ist doch besser wenn der wert nur 2 stellen nach dem komma hat
als wenn tausende kommas dahinter stehen.

PS: Statt Extended hätte man auch real nehmen können.