Perintahnya :Format('%8.2f'[
])
2 menunjukan jumlah angka di belakang komanya, yakni 2.
diganti dengan angka floatnyaFungsi di atas menghasilkan keluaran bertipe string.
Related Posts:
Menghilangkan karakter dalam kata
BEGINbefore:='12,000,000';StringReplace(before, ',', '',[rfReplaceAll, rfIgnoreCase]);//koma dihilangkanShowMessage(before);END;
… Read More
Mengatur angka di belakang koma
Perintahnya :Format('%8.2f'[])
2 menunjukan jumlah angka di belakang komanya, yakni 2.
diganti dengan angka floatnyaFungsi di atas menghasilkan keluaran bertipe string.
… Read More
Menyimpan jpg ke database
Seluruh kode yang ditulis di sini memerlukan unit DB dan jpeg sehingga harus dituliskan
uses DB, jpeg;
Cara untuk menyimpan file gambar ke dalam field "photo" bertipe text milik tabel dalam basis data SQL Server adala… Read More
Memberi warna DBGrid
Contoh memberi warna pada komponen DBGrid dengan nama komponen DBGrid1 :
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Memb… Read More
Format uang pada komponen Edit
var
sRupiah: string;
iRupiah: Currency;
begin
//ribuan --> currency ( menyesuaikan setting windows )
sRupiah := Edit1.Text;
sRupiah := StringReplace(sRupiah,',','',[rfReplaceAll,rfIgnoreCase]);
// hilangkan char k… Read More
0 comments :
Posting Komentar
Terima kasih atas kunjungan dan komentarnya