Valid floating point value..

[Caylaq]

Merhaba,

Griddeki filtrelenmiş verilerin toplamını aşağıdaki şekilde başarıyla alıyorum.

 
var
      toplam     : Currency; 
begin
                     .
                     .
                     .
 
  toplam     :=0.0;        //Currency
 
AdoQuery2.first  ;
while not AdoQuery2.eof do
begin
toplam:=toplam+dbgrid1.columns.grid.fields[8].AsCurrency;  // Tutar
AdoQuery2.next;
end;
 
Label3.Caption:='Toplam :' + currtostr(toplam)   +' YTL ' ;  //  Toplam
                     .
                     .
                     .

Ancak ;

Verilerde virgül (,) karakteri varsa ( aşağıdaki örneği verilmiştir ) Float olmayan bir sayı toplama giriyor diye uyarı verip program kırılıyor.

Tutar 12500.00 olursa sorun yok işlem başarılı oluyor.
Tutar 12,500.00 olursa program kırılıyor.

Veritabanındaki tutarlar da virgül (,) olarak basamak ayrımı yapılmaktadır.


---------------------------

Debugger Exception Notification
---------------------------
Project MDIAPP.exe raised exception class EConvertError with message ''12,999.95' is not a valid floating point value'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Çözüm olarak Calc. field olabilir ama SQL de bu sorunu gride göndermeden yapabilirmiyim ?



Teşekkürler

[cemaliozan]

Sorunu FloatToStrF fonksiyonu ilemi yoksa başka bir yollamı çözdün ?

[Caylaq]

Cemali Hocam,

FloatToStrF Şeklinde Çözemedim.. Kodu aşağıdaki şekilde kullandım ama aynı hatayı veriyor.

 
var
toplam:Extended;

PHP Kodu:

      toplam:=0.0;
      ADOQuery2.first  ;
      while not ADOQuery2.eof do
      begin
      toplam:=toplam+ StrToFloat(FloatToStrF(dbgrid1.columns.grid.fields[8].asFloat,ffNumber,18,0)+' $');
      ADOQuery2.next;
      end;
      Label3.Caption:='Toplam '+ currtostr(toplam) +' YTL ' ; 


Bir başka formda taksit toplamlarını alabilmek için yine aynı sorunum vardı. O sorunumu
Editlerdeki tüm VİRGÜLl( , ) leri kaldırarak çözmüştüm.

Edt5.Text:=StringReplace(Edt5.Text, ',', '', [rfReplaceAll])

Bunun sorunum üzerinde çalışıyorum. Henüz çözemedim.



.