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 !!!