Function Bilangan dengan Format

Function Membuat Bilangan desimal

1. Function TDM.BilDesimal(vTxt:String;nDes:Integer):String;
2. Begin
3. BilDesimal:=Format('%8.'+IntToStr(nDes)+'f',
4. [StrToFloat( vTxt)]);
5. End;

Contoh:
Edit2.text:=BilDesimal(Edit1.Text,2);


Format Mata uang Rupiah

1. Function TDM.FormatRp(vTxt:String):String;
2. Begin
3. FormatRp:=FormatFloat('Rp '+'#,##0.00;;zero',
4. StrToFloat(vTxt));
5. End;

COntoh:
Edit3.Text:=FormatRp(Edit2.Text);