Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Konvertovanje floattostr

[es] :: Pascal / Delphi / Kylix :: Konvertovanje floattostr

[ Pregleda: 2473 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

medixsa

Član broj: 155471
Poruke: 184
*.sa.hs-hkb.ba.



+2 Profil

icon Konvertovanje floattostr28.03.2008. u 23:19 - pre 194 meseci
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 !!!
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Konvertovanje floattostr29.03.2008. u 01:16 - pre 194 meseci
> 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);


 
Odgovor na temu

medixsa

Član broj: 155471
Poruke: 184
77.238.205.*



+2 Profil

icon Re: Konvertovanje floattostr29.03.2008. u 21:54 - pre 194 meseci
Hvala Vam puno !!!
uspio sam da rijesim...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Konvertovanje floattostr

[ Pregleda: 2473 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.