CxGrid de Summery.Fottersummery formatlı değeri kullanırken

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

CxGrid de Summery.Fottersummery formatlı değeri kullanırken

Mesaj gönderen a_self_lion »

Kod: Tümünü seç

var
Toplamborc : currency;
begin
ToplamBorc := StrToFloat(cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0]);
burda dğer 875.50 olursa bir sourun çıkmıyor fakat 8,246.50 olursa EconvertError whit message "8,246.002 is not a valid hatası alıyorum. Burda tootersummery de bu alana format olarak #,##0.00 bu şekilde kullanmıştım bundan kaynaklanıyor anladığım kadarıyla fakat bunu nasıl geriye normal olarak alabiliriz.
emin_as
Üye
Mesajlar: 559
Kayıt: 01 Eki 2008 10:05
Konum: izmir
İletişim:

Re: CxGrid de Summery.Fottersummery formatlı değeri kullanırken

Mesaj gönderen emin_as »

Aşagıdaki gibi yapabilirsin.

Kod: Tümünü seç

s:=cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0];
s:=Stringreplace(s,thousandseparator,''); // binlik ayıracı siliniyor
ToplamBorc := StrToFloat(s);
Karmaşık görünmesi dert olmayacaksa tek satırda da yazabilirsin.

Kod: Tümünü seç

ToplamBorc :=StrToFloat(Stringreplace(cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0],thousandseparator,''));
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

Re: CxGrid de Summery.Fottersummery formatlı değeri kullanırken

Mesaj gönderen a_self_lion »

Teşekkür ederim

Kod: Tümünü seç

s:=Stringreplace(s,thousandseparator,'');
burda hata veriyor '' tam olarak böyle mi yazılması gerekiyor.
a_self_lion
Üye
Mesajlar: 93
Kayıt: 01 Eki 2008 07:04

Re: CxGrid de Summery.Fottersummery formatlı değeri kullanırken

Mesaj gönderen a_self_lion »

Kod: Tümünü seç

var
harfduyarlilik:TReplaceFlags;// Unutmayın Küçük büyük duyarlılığı yok
Tek Satır için

Kod: Tümünü seç

ToplamBorc :=StrToFloat(Stringreplace(cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0],',','',harfduyarlilik));
Sadeleştirilmiş Şekli

Kod: Tümünü seç

s := cxGrid1DBBandedTableView1.DataController.Summary.FooterSummaryTexts[0];
  s := StringReplace(s,',','',harfduyarlilik); // binlik ayıracı siliniyor
  ToplamBorc := StrToFloat(s);
Bu şekilde oldu hata vermedi.

İlgilenen Arkadaşlara Teşekkür ederim
Cevapla