EconvertError hatası

[a_self_lion]

Kod: Tümünü seç

var
adet:Integer;
Brmfiyat,topfiyat:Double;
begin
adet:=StrToInt(cxTextEdit3.Text);
Brmfiyat:=StrToInt(cxTextEdit4.Text);
topfiyat:=adet * brmfiyat;

cxTextEdit5.Text :=FormatFloat('#,##0.00',(topfiyat));
cxTextEdit4.Text :=FormatFloat('#,##0.00',(BrmFiyat));

şimdi arkadaşlar yukardaki kodunla exit olayına bu kodu yazınca hesaplıyor fakat tekrar edit3 e miktara gelince EconvertError whit message "2.00" şeklind bir hata veriyor o kadar aradım bulamadım bir yardım edermisiniz.

[conari]

birimfiyat yani edit4 ü Format float verip

stringtoint ile çevirmeye çalışıyor tekrardan ondan.
çeviremediği içinde hata alıyor.
Birim fiyatı 2 yazıyorsunuz yani hesaplayıp 2,00 olarak değiştiriyor.

Not:

Kod: Tümünü seç

Brmfiyat:=StrToFloat (Edit4.Text);

olarak kullanın.

[a_self_lion]

Sayın conari teşekkür ederim.