kusurlu sayiyi label.captionda gostermek

[mrtblt]

Firebird veritabaninda numeric(15,2) veri tipine sahip bir alan var ve ben bu alani bir label'in captionuna atamak istiyorum.
Ama bu atamayi yapmak icin bunu bi sekilde string bir ifadeye cevirmem lazim. Yoksa oyle degilmi!
Bu tur bir veritipini, decimalleri de iptal etmemek kaydi ile nasil caption a atayabiliriz.
yani label soyle gozuksun --> 11,02 vs gibi

Hatta mumkunse 1000 den buyuk rakamlar soyle gozuksun 6.352,18

[husonet]

Kod: Tümünü seç

label1.caption := query.fieldbyname('NUMERICALAN').asstring;

bunun gibi.........

[mrtblt]

Dedigin gibi oldu hocam ama sana bi sorum daha var. Text dosyasindan 22,15 gibi bi stringi okuyup bu numerik (15,2) alana kaydetmek istiyorum. nasil bir conversion yapmam lazim

Kod: Tümünü seç

      str2 := copy(str80,8,7);
      val(str2,miktar,i1);
      dm.tbl_price.FieldByName('alis').asbcd:= miktar;

Ama bu sekilde calismiyor cunku bcd ve integer alanlari dogal olarak uyumsuz. Ote yandan field data tipini asinteger olarak yazdigimdada tum degerler 0 donuyor.

Selamlar

[husonet]

StrToFloat fonksiyonu işini görür.

kolay gelsin...

[mrtblt]

peki burada veritabani alaninin data tipini nasil tanimlamam gerekiyor

Kod: Tümünü seç

      str2 := copy(str80,8,7);
      dm.tbl_price.FieldByName('alis').asinteger:= strtofloat(str2);

bu sekilde yaptigimda yada asbcd yazdigimda kabul etmiyor...

[serkan]

Kod: Tümünü seç

str2 := copy(str80,8,7); 
      dm.tbl_pricealis.value:= strtofloat(str2);

[aslangeri]

s.a.
.asfloat nasıl olur.
noktayı koyup as yazdıktan sonra ctrl+space tuşlarına basarsan pencerede yazabileceklerinin hepsini gösterir.
kolay gelsin.