halo..salam kenal..saya pemula..mo nanya sesuatu... saya sedang berlatih menggunakan komponen ListView bagaimana menampilkan data uang ke listview supaya ditampilkan dalam bentuk currency (ada pemisah ribuaanya, misal : 10.000) lebih bagus ada "Rp."-nya..saya memakai firebird dgn tipe data integer coz di firebird gak ada tipe data currency...berikut procedure yg saya buat untuk menampilkan data dari firebird : procedure TForm1.RefreshData; begin lvMahasiswa.Items.Clear; DM.CommitTrans; with DM.qry1 do begin Close; SQL.Text := 'select * from mahasiswa order by ID'; Open; while Not Eof do begin with lvMahasiswa.Items.Add do begin Caption := fieldbyName('ID').AsString; SubItems.Add(fieldByName('NAMA').AsString); SubItems.Add(fieldByName('ALAMAT').AsString); SubItems.Add(fieldbyname('TGLLAHIR').AsString); SubItems.Add(fieldByName('TINGGIBADAN').AsString); SubItems.Add(fieldByName('GAJI').AsString); end; Next; end; end; program berhasil di eksekusi..tetapi data pada tabel GAJI tetap , misal 10000 (bukan seperti yg saya inginkan yaitu 10.000)...mohon bantuannya...terimakasih sebelumnya

Om @percyl Coba Gunakan FormatCurr

procedure TForm1.RefreshData;
begin
  lvMahasiswa.Items.Clear;
  DM.CommitTrans;
  with DM.qry1 do
  begin
     Close;
     SQL.Text := 'select * from mahasiswa order by ID';
     Open;
     while Not Eof do
     begin
     with lvMahasiswa.Items.Add do
     begin
	Caption := fieldbyName('ID').AsString;
	SubItems.Add(fieldByName('NAMA').AsString);
	SubItems.Add(fieldByName('ALAMAT').AsString);
	SubItems.Add(fieldbyname('TGLLAHIR').AsString);
	SubItems.Add(fieldByName('TINGGIBADAN').AsString);
SubItems.Add(FormatCurr('#,##0;-#,##0',fieldByName('GAJI').AsString);
    end;
  Next;
end;
end;
end;	

Note FormatCurr Disesuaikan dengan kebutuhan ok

bisa juga pake ini

SubItems.Add(Format('Rp. %.0n', );

dah tuh mantabz ada 3 pilihan yg berbeda2 tinggal mo pke yg mana :mrgreen:

wah..terimakasih buat mas...mas..sungguh membantu sekali... tapi kira2 sama gak ya kalo pake komponen AdvStringGrid milik TMS ? sekali lagi terimakasih...

beda....stringgrid lebih gampang tinggal sebutin cells aja...........

makasih mas kofa...ntar ak coba dulu...tp ntar kalo dah mentok aku sharing ke sini kode programnya...

@percyl: makasih mas kofa...ntar ak coba dulu...tp ntar kalo dah mentok aku sharing ke sini kode programnya...

mantabz... :wink: