dva decimalna mjesta

[ strike @ 06.01.2004. 21:13 ] @

kojim kodom rezultat zaokruziti na dva decimalna mjesta??

[ reiser @ 06.01.2004. 21:24 ] @

Nema potrebe da otvaras novu temu, kad si ovo pitanje vec postavio u staru.

Evo koda koji koristi Math unit :

Code:

uses Math;

var
  br  : Double;
  br1 : Double;

begin
  br := 12312.470195
  br1 := RoundTo(br, -2);

// br1 ti je novi broj, zaokruzen na dve decimale
end;

[ strike @ 06.01.2004. 21:33 ] @

ovako,

imam dva "ulaza" EDIT1 i EDIT2

rjesenje se nalazi u EDIT3

daj reci proceduru za to...

[ strike @ 06.01.2004. 21:40 ] @

p.s.

da li EDIT ima mogucnost poravnjanja znakova unutar njega?? (Alignment)

[ byTer @ 07.01.2004. 00:31 ] @

Code:

edit3.text:=FloatToStr(RoundTo(StrToInt(edit1.text)+StrToInt(Edit2.Text),-2))

[ strike @ 07.01.2004. 08:55 ] @

[Error] Unit1.pas(30): Undeclared identifier: 'RoundTo'

greska....

[ strike @ 07.01.2004. 08:58 ] @

e, u USES moras dodati MATH!

[ reiser @ 07.01.2004. 12:26 ] @

Eh, eh, pomuci se malo...

[ chips @ 12.01.2004. 09:06 ] @

Umesto EDIT3 koristi MASKEDIT, a zadaj recimo sledecu masku:#########0.00
Ova maska omogucuje 10 mesta za ceo broj i dva za decimalni deo.
ako nemas ceo broj ispisisvace se 0.00 ili 0.32 recimo.

[ byTer @ 12.01.2004. 16:44 ] @

Mislim da nepostoji ono RoundTo, nego nesto tipa FormatNumber ili tako nesto.