memo liness add

[erdogan_ozkaya]

Arkadaşlar aşağıdaki kod ile ado nesnesindeki bilgileri memo lines e aktarıyorum fakat biçimsiz aktarıyor belli bir genişlikte nasıl yapabilirim ?

çıkan örnek
ADI SOYADI CINSIYETI
ALİ VELİ ERKEK
HASAN ALİ ERKEK


yapmak istediğim örnek

Kod: Tümünü seç

ADI           	SOYADI   	CINSIYETI
ALİ           	VELİ      	ERKEK
HASAN	          ALİ	        ERKEK
HÜSEYİN	      MEHMET	  ERKEK

Kod: Tümünü seç

procedure TForm1.btn1Click(Sender: TObject);
   var
   SAY:integer;
begin
    for SAY:=0 to QRY_1.recordcount do begin

    mmo1.lines.add(QRY_1.FieldByName('Genel_Cari_Unvan').Text  +'   '+  QRY_1.FieldByName('CARI_TIP').Text  +'   '+  QRY_1.FieldByName('Kayit_Tarihi').Text);
    QRY_1.Next;
    end;
end;

teşekkürler

[erdogan_ozkaya]

Arkadaşlar

aşağıdaki kod yapıyor ama kısa bir aralık koyuyor tam sığması için nasıl yapabilirim acaba ?

teşekkürler

Kod: Tümünü seç

procedure TForm1.btn1Click(Sender: TObject);
   var
   SAY:integer;
begin
    for SAY:=0 to QRY_1.recordcount do begin

    mmo1.lines.add(QRY_1.FieldByName('Genel_Cari_Unvan').Text  +''#9''+  QRY_1.FieldByName('CARI_TIP').Text  +''#9''+  QRY_1.FieldByName('Kayit_Tarihi').Text);
    QRY_1.Next;
    end;
end;

[SimaWB]

Memo'nun fontunu değiştirebilirsiniz. Bazı fontlarda her harf farklı genişlikte, bazılarında ise tüm harfler aynı genişlikte olur. Mesela Courier New'i deneyebilirsiniz.

[SimaWB]

Ayrıca string format'ını ayarlamak için kullanılan Format fonksiyonunu araştırmalısınız. System.SysUtils.Format