cell format

[rapsodim]

dbgrid içindeki verileri excele aktarıyorum.
fakat 011206 şeklindeki bir değer 11206 şeklinde geliyor.Table da alan string fakat açılan excel sayfasına integer geliyor.
Excele şöyle aktarıyorum;

r.cells[1+d,i]:=TABLE2.FieldByName('5').AsString;
r.cells[1+d,i+1]:=STRTOINT(TABLE2.FieldByName('MIK').AsString);
r.cells[1+d,i+2].value:=TABLE2.FieldByName('Bilgi').AsString;

bilgi alanı excele aktarılınca eğer başında sıfır varsa bunu atıyor.ben olduğu gibi aktarılmasını istiyorum.Yardımcı olurmusunuz?

[Hakan Can]

Excel dosyasının hücrelerinin formatını Text (Metin) yapmalısın.

İyi çalışmalar.

[rapsodim]

aktarım bittikten sonra 010506 şeklindeki veri 10506 oluyor.hücreyi metin yapıldığında dahi başına 0 getirmiyor.aktarım esnasında hücre bilgisinin metin olduğunu nasıl gösterebilirz.Ben bunu sormak istedim.

[nitro]

Sayının sonuna nokta koy ya da _ - falan koy.
böylece onu karakter olarak algılar
kolay gelsin

[rapsodim]

bilgiye eklenti yapmak doğru değil.
var olan bilginin excele aktarılırken olduğu gibi aktarılması gerekiyor.
string bir ifadenin string olarak aktarılması yani
format cell özelliği ile tarih istenilen şekle getirelebiliyor fakat
010506 şeklindeki string bir ifadeyi excele yolladığımda 10506 alıyor.
databasede de bu alan string bir değer içeriyor.
öğrenmek istediğim bir değeri dbgrid ile görüldüğü format ve şekil ile nasıl aktarılır konusudur.ilginize tşkr ederim.

[rapsodim]

hücre biçimini;
r.Cells[2, 3].Value := FormatDateTime('dd-mmm-yyyy', Now); ile tarih isteğe uyarlanmış çevrilebiliyor fakat string olarak nasıl göndereceğimi bulamadım.bu konuda bilgisi olan arkadaş yardımcı olursa sevinirim.

[Murat DİCLE]

Merhabalar,

Excell'de dediğiniz gibi bir sayıyı 00001223 bu şekilde aynen gösterebilmek için girilen metinin başına tek tırnak işaretini ( ' ) koymanız gerekmektedir. Şöyle: '00012345 gibi....

Saygılar...

[rapsodim]

cevap sandığımdan da kolaymış.tşkr ederim.
İlginize ve bilginize tşkrler arkadaşlar.

[rapsodim]

değişkene tek tırnak nasıl atayabilirim.

[ulu coder]

Şöyle bi yöntem buldum;

Kod: Tümünü seç

edit2.Text:=QuotedStr(edit1.Text);
edit3.Text:=copy(edit2.Text,1,length(edit2.Text)-1);

edit1'in başına ve sonuna tırnak ekleyip edit2'ye yazıyor.
Sonra edit2'nin bir karakter eksiğini alarak edit3'e yazıyor.
sonuçta tek tırnak kalıyor

Tek satırda da halledebilirsin, anlaşılması kolay olsun diye 2 satırda yaptım