Dosen adalah pendidik profesional dan ilmuwan dengan tugas utama mentransformasikan, mengembangkan, dan menyebarluaskan ilmu pengetahuan, teknologi melalui pendidikan, penelitian, dan pengabdian kepada masyarakat (Permendikbud 49/2014 Pasal 1:14)

08 Maret 2012

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 koma , pemisah //ribuan selain IDR
sRupiah := StringReplace(sRupiah,'.','',[rfReplaceAll,rfIgnoreCase]);
//remove char titik . pemisah //ribuan IDR
iRupiah := StrToCurrDef(sRupiah,0); // convert srupiah ke currency
//currency --> format ribuan
edit1.Text := FormatCurr('#,###',iRupiah);
edit1.SelStart := length(edit1.text);

0 komentar :

Posting Komentar

Terima kasih atas kunjungan dan komentarnya