Konvertovanje floattostr

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

> 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);

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html