Salam pengembang Dephi Buat Para master ..Saya ada kesulitan dalam pembuatan laporan perkolom di memo masalahnya antara data kolom1 dgn kolom yg lainnya masing-masing punya lebar tertentu dgn perataan yg berbeda-beda Contoh yg saya inginkan seperti ini No. Nama Alamat Gaji Kotor Tunjangan 01 Indah Jl perumnas 1 2.500 3.500 02 Bayu Jl Rasuna Said 3.500 1.500

Isi Datanya terpisah antar kolom yg satu dgn yg lainnya

- Yang anda perlukan pertama-tama adalah pastikan Font pada TMemo anda merupakan font yang lebar setiap characternya sama. misal courier / courier new, character "i" dengan character "W" lebarnya akan sama, berbeda dengan arial dan lainnya. - Tentukan dulu maximal panjang setiap kolom (dlm character), dlm kasus anda terdapat lima kolom, anggap saja kolom-kolomnya memiliki panjang sebagai berikut : kolom No. --> panjang 5 chars kolom Nama --> panjang 7 chars kolom Alamat --> panjang 15 chars kolom Gaji dan tunjangan --> panjang 11 chars - Tambahkan spasi sebanyak maximal panjang kolom - jumlah character pada setap cell contoh: pada kolom Nama berisi "AYU" maka spasi yang akan kita tambahkan adalah 7 - 3 = 4 akan menjadi "AYU____". underscore kita ilustrasikan sebagai spasi coba anda perhatikan ilustrasi dibawah ini dan silahkan di coba "_" dan "~" kita anggap sebagai spasi. ++ semoga membantu++

No.__Nama___Alamat_________~Gaji Kotor~~Tunjangan 
01___Indah__Jl perumnas____~~~~~12.500~~~~~~~3.500
02___Bayu___Jl Rasuna Said_~~~~~~3.500~~~~~~~1.500

Algoritma seperti itu saya mengerti lebar kolom-panjang data= spasi kosong Ada gak cara penambahan spasi kosong tanpa melalui proses manual menggunakan Fungsi dengan berdasarkan rumusan diatas

Sepertinya kok mirip dengan thread ini ya: Buat Laporan di Memo Tentu saja Anda bisa menggunakan fungsi yang Anda buat sendiri berdasarkan konsep kerja di atas...

saat ini saya masih pemula di dephi saya belum begitu tahu fungsi fungsi yg tdp didalamnya. Di program yg lain saya biasa menggunakan fungsi Replicate untuk membuat duplikat karakter sebanyak nilai yang dimasukkan == > Repl("_",10) ..tapi untuk di dephi kok gak ada fungsi tsb

Untuk mengulang karakter, bisa menggunakan fungsi StringOfChar atau DupeString, coba simak baik - baik pada thread Buat Laporan Memo. Kemudian sesuaikan dengan kebutuhan Anda.

Oke dech SEmuanya Terimakasih atas bantuannya. Salam buat kemajuan pemprograman di Indonesia == Tetap semangat

mas @delogic; yg ngepos dulu itu ya di dedy_007 juga; apa ampeh sekarang belum dpt juga ya bikin function Repl();

function Repl(Kar : Char; Jml : Smallint) : String;
var Hsl : String;
    i : Smallint;
begin
  Hsl :='';
  if Jml < 1 then
  begin
    Result := Hsl;
    exit;
  end;
  for i := 1 to Jml do
  begin
    Hsl := Hsl + Kar;
  end;
  Result := Hsl;
end;

semoga terbantu