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 von f4r:

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

Dann nutze die Foren-Suche.

[ichbins]

format... ... 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

sehr interessant

lsg ist im übrigen:

Delphi-Quellcode:

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

gruss

[Matze]

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

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

[Matze]

Zitat von Maximus:

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

Korrekt, das würde auch gehen.