Ands Blog

Untuk selanjutnya setelah dibuatkan format uang seperti pada tutorial sebelumnya (Membuat Format Uang di Delphi), tentunya akan ada kendala jika akan menggunakan nilai dari TEdit yang sudah berformat uang.
Berikut saya uraikan cara untuk mengatasi hal tersebut :
Saya buatkan contoh kasus aplikasi untuk menjumlahkan dua buah nilai sperti berikut


- Pertama buat form seperti berikut,
- Tambahkan variabel pada private,
  private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;
- Isi kode pada Event OnExit TEdit1 seperti berikut,
  procedure TForm1.Edit1Exit(Sender: TObject);
  begin
  if Edit1.Text = '' then
  else
   begin
     NilaiUang1 := StrToFloat(Edit1.Text);
     Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
   end; 
  end;
- Isi kode pada Event OnKeyPress TEdit1 seperti berikut,
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
      Edit2.SetFocus;
  end;
 
- Isi kode pada Event OnExit TEdit2 seperti berikut,
  procedure TForm1.Edit2Exit(Sender: TObject);
  begin
    if Edit2.Text = '' then
    else
      begin
       NilaiUang2 := StrToFloat(Edit2.Text);
       Edit2.Text := Format('%.n',[StrToFloat(Edit2.Text)]);
     end;
  end;
- Isi kode pada Event OnKeyPress TEdit1 seperti berikut,
  procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key=#13 then
      BitBtn1.SetFocus;
  end;
- Isi kode pada Event OnClick BitBtn1 seperti berikut,
  procedure TForm1.BitBtn1Click(Sender: TObject);
  begin
    Jumlah := NilaiUang1 + NilaiUang2;
    Edit3.Text := Format('%.n',[Jumlah]);
  end;

Pada saat Event OnExit, dari TEdit1 akan diambil NilaiUang1 dan dari TEdit2 diambil NilaiUang2 yang bertipe real/float, ini dilakukan sebelum nilai dikonversi menjadi format uang. Sehingga nilai yang terekam pada NilaiUang1 dan NilaiUang2 merupakan nilai pada saat input dilakukan.

Keseluruhan kode bisa dilihat seperti berikut :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    NilaiUang1, NilaiUang2, Jumlah : real;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
  else
   begin
     NilaiUang1 := StrToFloat(Edit1.Text);
     Edit1.Text := Format('%.n',[StrToFloat(Edit1.Text)]);
   end; 
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    Edit2.SetFocus;
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  if Edit2.Text = '' then
  else
   begin
     NilaiUang2 := StrToFloat(Edit2.Text);
     Edit2.Text := Format('%.n',[StrToFloat(Edit2.Text)]);
   end;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Jumlah := NilaiUang1 + NilaiUang2;
  Edit3.Text := Format('%.n',[Jumlah]);
end;

end.

Tidak ingin repot, silahkan download source-nya di link download di bawah ini
Membuat Format Uang di Delphi 2

Ketentuan :
Teman-teman boleh menyebarkan tulisan ini dengan mencantumkan link berikut :
sumber : http://andsc.blogspot.com

<<<< Terima kasih >>>>