Forum: Sonstige Fragen zu Delphi
Delphi
by Lycanos,
21. Jun 2006
:(
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.
Forum: Sonstige Fragen zu Delphi
Delphi
by Lycanos,
21. Jun 2006
und weil es so schön war ... noch mal. Jetzt geht´s :-D
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)=lowercase(buchstabe) then begin
anzahl:= anzahl+1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Lycanos,
21. Jun 2006
Ach ja ... da war ja noch was :shock:
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)=lowercase(buchstabe) then begin
anzahl:= anzahl+1;
Forum: Sonstige Fragen zu Delphi
Delphi
by Lycanos,
21. Jun 2006
das Resultat würde ich aber als Extended mit 2 Kommastellen angeben !!:
Result := StrToFloat(Format('f2.00%', ));
Ich glaube das wurde so geschreiben :wink: