Alan tipi

[loxka]

Kod: Tümünü seç

table2GenelTutar.Value:=strtoFloat(edit1.Text);

şeklindeki kod

Kod: Tümünü seç

" is not a valid floating point value.

hatası veriyor.... Genel Tutar alanı currency tipi bir alan..
Yardımlarınız için teşekkür ederim..

[mussimsek]

Edit'in içinde sayıdan başka bir karakter, mesela harf var veya ondalık kısım kullanıyorsan ayıracın uyumsuz. . (nokta) veya , (virgül) kullanılır genelde. Bunu Windows ayarlarından (Bölgesel Ayarlar-Regional Settings) alır. Değiştirerek bir dene.

Kolay gelsin.

[loxka]

Kod: Tümünü seç

procedure TForm3.Button1Click(Sender: TObject); 
var 
topla:real; 
begin 
table2GenelTutar.Value:=strtofloat(edit1.Text); 
table2.Post; 
Table2.first; 
topla:=0; 
while not table2.eof do 
begin 
topla:=topla +Table2tutar.AsFloat ; 
Table2.next; 
Edit1.Text:=floattostr(topla); 
end; 
end; 
end.

Hocam Bilgisayarımda YTL yaması yoktu . Şimdi yükledim fakat yine aynı hata tekrarlanıyor, Yardımlarınız için teşekkür ederim

[lazio]

Basamak Ayıracı olarak herhangi bir sperator kullanmadan dene (nokta, v,rgül vs.). Sadece Decimal Sperator olarak Denetim masasındaki işareti kullan.

[loxka]

Aynen dediğiniz gibiydi zaten hocam, özel bir ayıraç kullanmıyorum, fakat alan tipleri bende "N" numeric, ondanmı kaynaklandı bu dedim , Money olarak değiştirdim sorun devam etti.
İlginç olan hatayı Projectin sonuna atıyor artık.
Birde alanın curreny properties niteliği "true"..
İlginiz için teşekkür ederim.

[aslangeri]

s.a.
ilk sorunuzdaki hatanın sebebi edit in içi boş olduğu için veriyordu.
strtofloat tarzı çevirme işlemlerinden önce textin geçerli olup olmadığını kontrol etmelisiniz.

XXXXX is not a valid floating point value

hatası almaya devam ediyorsanı XXXXX kısmını bi inceleyin.
o değer geçerli değil. nokta ve virgül ikilisini bu mesajda kontrol edin.
o na göre değer girin.
kolay gelsin.

[rsimsek]

Şu şekilde deneyebilirsin;

Kod: Tümünü seç

try
  table2GenelTutar.AsFloat := strtoFloat(edit1.Text);
except
  table2GenelTutar.AsFloat := 0.0;
end;

Çünkü Edit1.Text float veya sayısal bir alan değilse ne yapacağını garantilersin