Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
conari
Üye
Mesajlar: 2102 Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık
Mesaj
gönderen conari » 14 Haz 2007 03:40
Arkadaşlar SQL 'den dönen bir sonuç var.
Örnek
A - B - C
1 Ali 250
2 veli 250
bunu, bu şekilde memoya nasıl aktaracağım.
Kod: Tümünü seç
while not(detayQuery.Eof) do
begin
memo1.lines.Add(detayQuery.Value);
detayQuery.Next;
gibi bir kod blogumu kullanmam lazım yoksa bir grid üzerine alıp ordan mı memo ya alacağız.
Bir kelimenin anlamını öğretsen bile yeter..
rsimsek
Admin
Mesajlar: 4482 Kayıt: 10 Haz 2003 01:48
Konum: İstanbul
Mesaj
gönderen rsimsek » 14 Haz 2007 04:45
Dediğin şekilde olabilir. Eğer düzenli olmasını istiyorsan font u da currier new seçmen yeterli
Kod: Tümünü seç
hile not(detayQuery.Eof) do
begin
memo1.lines.Add(detayQuery.AsString + ' ' detay2Query.AsString+ ' ' detay3Query.AsString);
detayQuery.Next;
gibi..
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
conari
Üye
Mesajlar: 2102 Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık
Mesaj
gönderen conari » 14 Haz 2007 05:13
Hoca slm,
Hemen denedim,
Memo.Lines.Add(detayQuery.AsString);
Kod: Tümünü seç
[Error] Undeclared identifier: 'AsString'
Hatasını aldım.
Field[1].value + Field[2].value +Field[3].value
şeklinde eklesem yermı acaba bunu deneyeceğim.
Font olayı işimi görmüyor. Çünkü mail göndereceğim.
Bir kelimenin anlamını öğretsen bile yeter..
conari
Üye
Mesajlar: 2102 Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık
Mesaj
gönderen conari » 14 Haz 2007 05:52
Evet oldu.
Kod: Tümünü seç
while not(detayQuery.Eof) do
begin
mailMemo.Lines.Add('<h5>'+(detayQuery.Fields[1].Value)+' ---- '+(detayQuery.Fields[2].Value)+' ---- '+IntToStr(detayQuery.Fields[3].Value)+'<h5>');
detayQuery.Next; end;
Teşekkürler.
Bir kelimenin anlamını öğretsen bile yeter..