2 stellen hinterm komma

[f4r]

Hi Leute,

ich denke diese Frage kann leich beantwortet werden:

Delphi-Quellcode:

a:=Progressbar1.position/5;
Label3.caption:=''+FLOATTOSTR(a)+' %' ;

das label soll die Prozentzahl mit zwei Zahlen hinterm komma anzeigen und iihr mir den quellcode korriegen

ware supa

danke
f4r

[Luckie]

Guck mal in der Hilfe unter Format.

[f4r]

ich kann mit der hilfe nichts anfangen ich versteh da imma kein wort !

[Matze]

Zitat:

Zitat von f4r

ich kann mit der hilfe nichts anfangen ich versteh da imma kein wort !

Dann nutze die Foren-Suche.

[ichbins]

format... :kotz: ... Hab ich eigentlich auch noch nicht so ganz verstanden...

aber ich versuchs mal anderst:

Delphi-Quellcode:

function myfloattostr(float:extended;minvorkommastellen,nachkommastellen:integer):string;
var
  i:integer;
  rest:extended;
begin
  result:=inttostr(trunc(float));
  rest:=(float-trunc(float))*10;
  for i:=length(result) to minvorkommastellen do
    result:='0'+result;
  if nachkommastellen=0 then exit;
  result:=result+',';
  for i:=1 to nachkommastellen-1 do
  begin
    result:=result+inttostr(trunc(rest));
    rest:=(rest-trunc(rest))*10;
  end;
  result:=result+inttostr(round(rest));
end;

[edit] beitrag bearbeitet, hatte mich vertippt. jetzt getestet. funzt super. Beispiel: myfloattostr(123.456789,5,3) -> '00123,457' [/edit]

[Luckie]

Sehr umständlich. Warum nicht FloatToStrF?

[f4r]

wie gesagt da ich mit der hilfe nichts anfagen und im forum scho gesucht hab !!!!!!!!!!!!!!!!!!!!!!!!11 ;)
hab ich mich ab ins netz bbegeben und bin auf folgende Seite gestoßen:

http://www.friedrich.fr.schule-bw.de...i0/delphi0.htm

hab sie mir gleich gebookmarked :D

sehr interessant

lsg ist im übrigen:

Delphi-Quellcode:

a:=Progressbar1.position/5;
Label3.caption:=''+format('%8.2f',[a])+' %';

gruss

[Matze]

Zitat:

Zitat von f4r

wie gesagt da ich mit der hilfe nichts anfagen und im forum scho gesucht hab !!!!!!!!!!!!!!!!!!!!!!!!11 ;)

Für's nächste Mal:
Das kannst du mir nicht erzählen sorry, aber im Forum steht wirklich sehr viel dazu. Nur ein Beispiel:

format nachkommastellen

--> http://www.delphipraxis.net/internal...=236005#236005
--> http://www.delphipraxis.net/internal...=289548#289548

Einfach vornehmen, 5 Minuten zu suchen, dann hast du das, was du möchtest. ;)

[Maximus]

Hallo,

Würde es nicht auch mit RoundTo(Variable, -2) gehen?

also

Delphi-Quellcode:

Ausgaben := FloatToStr(RoundTo(Variable, -2))

MFG
Maximus

[Matze]

Zitat:

Zitat von Maximus

Würde es nicht auch mit RoundTo(Variable, -2) gehen?

Korrekt, das würde auch gehen.

[alzaimar]

Oder mit

Delphi-Quellcode:

FormatFloat ('0.00', MyFloatValue);

Viele Wege führen nach Rom. Für feste Stellenanzahl empfehle ich FormatString, für variable Stelleanzahl das hier erwähnte FormatFloat. Im Übrigen würde ich mich mit den beiden Funktionen mal ausgiebigst auseinandersetzen, sie sind einfach zu wichtig.

Und wer die Online Hilfe nicht versteht, sollte vielleicht doch mal deutsch lernen? :mrgreen: