Membuat Format Uang di Delphi

Ada cara sederhana untuk membuat format uang di delphi, bisa disisipkan pada Event onExit dari komponen TEdit atau dibuatkan procedure jika menggunakannya berulang-ulang. Berikut contoh membuat format uang pada saat Event onExit,
- Buat Form seperti berikut :


- Pada Event OnExit dari TEdit1 masukkan kode berikut :
  procedure TForm1.Edit1Exit(Sender: TObject);
  begin
    if Edit1.Text = '' then
      else Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
  end;
- Kemudian pada Event OnKyPress dari TEdit1 masukkan kode berikut :
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
    Edit2.SetFocus;
  end;
  Kode ini berfungsi ketika menekan tombol Enter, maka kursor akan berpindah ke TEdit2.


- Ketika di Run dan dicoba, maka hasilnya akan seperti berikut


  Isi isian yang paling atas dengan angka (missal 1000000), kemudian pijit Enter.


Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : www.elpro82.blogspot.com
----- Terima kasih -----