toplama hatası

[ercanskose]

arkadaşlar

Kod: Tümünü seç

 tutar:=strtofloat(cxcurrencyedit3.Text);
adet:=strtofloat(cxtextedit10.Text);
toplam:=tutar*adet;
cxcurrencyedit2.Text:=floattostr(toplam);
 cxcurrencyedit2.Text := FormatFloat('#####0.00',strtofloat(cxcurrencyedit2.Text ));

bu kod çalışıyor çarpma işlemini yapıyor fakat bu kodun altına aşağıdaki kodu eklediğimde 'is not a valid floating point value' hatası alıyorum. Kodu siliyorum herşey normal. nerde hata yapıyorum.

Kod: Tümünü seç

toplama:=strtofloat(cxcurrencyedit1.Text);
k8:=strtofloat(cxcurrencyedit7.Text);
k18:=strtofloat(cxcurrencyedit4.Text);
sonuc:=toplama+k8+k18;
cxcurrencyedit6.Text:=floattostr(sonuc);
cxcurrencyedit6.Text := Formatfloat('#####0.00',strtofloat(cxcurrencyedit6.Text ));

[mussimsek]

. veya , hatası oluyor. Windowsta küsuratlı rakamları 10,15 veya 10.15 gibi gösterebilirsin. Bunu windowsun kendi ayarlarından alır. Siz muhtemelen yanlış olanı kullanıyorsunuz.

Kullandığınız yöntem son derece yanlış. String ve sayıların birbirine dönüştürülmesi her zaman bu tarz hatalara yol açar. cxSpinEdit kullanıp, cxSipinEdit.Value ile işlem yapın.

Kolay gelsin.

[freeman35]

yanlış hatırlamıyorsam tcxcurrencyedit clası nın value diye bir property si olması gerekiyor, çeviri yapmana gerek yok.
Kolay gele

[ercanskose]

arkadaşlar çözdüm teşekkür ederim. alttaki kodu yanlış yerde kullanıyormuşum çünkü cxcurrencyedit1 boş olduğunda hata almam normal. bu koddan önce ürün toplamını cxcurrencyedit1 e toplatıp sonra kdv toplamı yaptım düzeldi.