kojim kodom rezultat zaokruziti na dva decimalna mjesta??
Potpis
M.j.
dva decimalna mjesta
Zaključano
Zakačeno
Nema potrebe da otvaras novu temu, kad si ovo pitanje vec postavio u staru.
Evo koda koji koristi Math unit :
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;
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;
ovako,
imam dva "ulaza" EDIT1 i EDIT2
rjesenje se nalazi u EDIT3
daj reci proceduru za to...
imam dva "ulaza" EDIT1 i EDIT2
rjesenje se nalazi u EDIT3
daj reci proceduru za to...
Potpis
M.j.
p.s.
da li EDIT ima mogucnost poravnjanja znakova unutar njega?? (Alignment)
da li EDIT ima mogucnost poravnjanja znakova unutar njega?? (Alignment)
Potpis
M.j.
Code:
edit3.text:=FloatToStr(RoundTo(StrToInt(edit1.text)+StrToInt(Edit2.Text),-2))
edit3.text:=FloatToStr(RoundTo(StrToInt(edit1.text)+StrToInt(Edit2.Text),-2))
[Error] Unit1.pas(30): Undeclared identifier: 'RoundTo'
greska....
greska....
Potpis
M.j.
e, u USES moras dodati MATH!
Potpis
M.j.
Eh, eh, pomuci se malo...
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.
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.
Potpis
Sto puta sam ti SRPSKI rekao:
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
ono što jednom crack-uješ,
ne možeš više da patch-uješ!
Mislim da nepostoji ono RoundTo, nego nesto tipa FormatNumber ili tako nesto.