Cara memisahkan ribuan di Delphi..

Code ini hanya untuk  input…

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);

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);

end;