Ada yang bisa bantu .. saya mau buat laporan di Memo dalam format Tabel Saya bingung untuk source agar antar kolomnya kelihatan RApih dan bisa RAta kanan maupun RAta kiri Contoh nya No. | Nama | Gaji | Anak 01 | Rudi | 1.000.000 | 2 02 | Iwan | 2.500.000 | 12 03 | Irawan | 900.000 | 1

Set aja font pada memo bertipe monospace.. contohnya Courier. kemudian bermain2 lah dengan spasi untuk menentukan lebar yang sesuai.

Permasalahannya Sumber datanya saya ambil data database, Saya sudah coba hal tsb namun karena perbedaan panjang data maka datanya jadi berantakan, Saya pernah lihat aplikasi yg bisa membuat setiap data menyesuaikan dengan lebar kolomnya sehingga tidak ada yg merapat ke kanan maupun kekiri

sebelum menuliskan data ke TMemo, ambil terlebih dahulu tipe dan panjang data dari setiap field nya. Itulah panjang maksimumnya, terutama untuk Teks. Nah pada saat menuliskan data ke TMemo, perhitungkan terlebih dahulu berapa spasi yang akan diberikan, berdasarkan informasi dari panjang maksimum. Misalnya pada field Nama tipedatanya varchar(20), nah berarti panjang kolom maksimum nya 20 spasi. Setiap akan menuliskan data pada field nama, cek terlebih dahulu panjang karakternya, misalnya Rudi, berarti panjangnya 4 spasi, nah untuk memenuhi panjang maksimum 20 spasi, maka tambahkan string spasi sebanyak 16. demikian seterusnya untuk kolom lainnya. Silahkan bereksperimen terlebih dahulu.

While Not Adoq1.Eof do Begin Str(I:4,Sno); Redata.Lines.Add(Sno +' | '+Adoq1.Fields[0].AsString ); I:=I+1; Adoq1.Next; End; Redata.Lines.add('---------------------------------------------------------------------------------'); Redata.Lines.add('---------------------------------------------------------------------------------'); Redata.Lines.add('Jumlah :'+Sno); Ini sepenggalan baris program untuk penulisan di Memonya , Untuk menambahkan spasi kosong fungsi yg dipakai apa .. maklum masih pemula ...

Master-masternya kemana nich ..ada yg bisa bantu cari solusi lagi gak

spasi kosong

Redata.Lines.add('');

contoh, belum diuji, sekedar proof of concept saja:

LenMax := Adoq1.FieldDef[0].Size;
While Not Adoq1.Eof do 
Begin
  Str(I:4,Sno);
  LenStr := Length(Adoq1.Fields[0].AsString);
  Redata.Lines.Add(Sno +' | '+Adoq1.Fields[0].AsString + DupeString(' ', LenMax - LenStr) + ' |');
  I:=I+1;
  Adoq1.Next;
End;
Redata.Lines.add('---------------------------------------------------------------------------------');
Redata.Lines.add('---------------------------------------------------------------------------------');
Redata.Lines.add('Jumlah :'+Sno); 

oiya, jangan lupa untuk menambahkan unit StrUtils di klausul uses karena penggunaan fungsi DupeString.

atau bisa gunakan function StringOfChar(): string; ...

Thats right brother.. bahkan tanpa menambahkan unit StrUtils pada klausul uses, karena ada di unit system.