[ medixsa @ 28.03.2008. 23:19 ] @
Pozdrav !!!


Delphi 7


var
Total : Currency;
Txt : string;
begin

tblProdaja.First;
while not tblProdaja.Eof do
begin
Total := Total + RoundTo(frmProdaja.tblProdajaIznos.AsFloat,-2);
tblProdaja.Next;
end;
Txt := FloatToSTr(FloatToCurr(Total));
LIznos.caption := CurrToStrF(Total, ffCurrency, 2);

Izbaci mi grešku !!!


Pitanje ?

Kako da mi se u Label komponenti prikaze iznos sa dvije decimale ili npr 1,00 KM kada recimo u edit1.text unesem
kolicinu 1
Hvala na odgovoru !!!
[ savkic @ 29.03.2008. 01:16 ] @
> Txt := FloatToSTr(FloatToCurr(Total));
> LIznos.caption := CurrToStrF(Total, ffCurrency, 2);

> Izbaci mi grešku !!!

Pretpostavljam da je ovo nagradna igra u kojoj učesnici pogađaju grešku? ;)

> Kako da mi se u Label komponenti prikaze iznos sa dvije decimale ili npr 1,00 KM kada recimo u edit1.text unesem kolicinu 1

Koliko vidim već si napisao:
CurrToStrF(1, ffCurrency, 2); još može FormatFloat('#.00', 1) i FloatToStrF(1, ffCurrency, 7, 2);

[ medixsa @ 29.03.2008. 21:54 ] @
Hvala Vam puno !!!
uspio sam da rijesim...