excel aktarım ondalık syaı problemi

[cvheneburi]

arkadaşlar merhaba;
veritabanındaki bilgileri excel e aktarırken veritabanından toplam alanı parasal değer

Kod: Tümünü seç

sheet.cells[i,4].value:=CurrToStr(MyTable1AVANSTUTAR.AsCurrency);

bu kod ile excel e aktarım yapıyorum daha sonra

Kod: Tümünü seç

sheet.Columns[4].NumberFormat := '#'+ThousandSeparator+'##0'+DecimalSeparator+'00 TL';

bu kod ile de hücrenin formatını ayarlıyorum
virgülden sonraki değer 0 ise yani 1,00 ise bunu normal olarak yapıyor fakat 1,50 olduğu zaman string değer olarak gösteriyor
bir türlü çözemedim yardımcı olabilir misiniz....

[xxxjedixxx]

Merhaba,

CurrtoStr fonksiyonu ile siz string'e dönüştürüyorsunuz. Direkt aktarırsanız sorun olmayacaktır.

sheet.cells[i,4].value:= MyTable1AVANSTUTAR.AsCurrency;

[cvheneburi]

yaw sabahtan beri kafayı yedirtti bana bu kadar ince ayrıntıda mı saklıymış ya çok teşekkür ederim hücam