Delphi Exception

3 12 2009

Delphi exception, mungkin teman-teman delphi mania sudah banyak yang tahu apa yg dimaksud dengan exception pada delphi, bagi yang belum tahu mungkin sedikit tulisan sederhana ini bisa membantu teman-teman lainnya untuk memahami apa itu exception…..

Exception bila diterjemahkan ke Bhs.Indonesia adalah pengecualian. Exception pada delphi adalah suatu pesan error pada saat program dijalankan (Runtime), meskipun program tersebut tidak memberikan pesan kesalahan pada saat di kompilasi (Compile). Mungkin bisa dijelaskan dengan contoh, sbb :

#) Bila kita membuat suatu program perhitungan (Ex: Pembagian) dimana pada pembagian terdapat pembilang dan penyebut. Kita tidak tahu, apakah nilai dari pembilang < penyebut, atau sebaliknya (pembilang > penyebut), dan kemungkinan nilai penyebut adalah 0 (Nol). Sperti terlihat pada gambar dibawah.

Bentuk Umum daripada Exception delphi adalah :

Try

{program yang ingin kita jalankan}

Except

{Pengecualian bila program yg dijalankan terjadi error}

End;

Source Code Lengkap (Full Source Code) untuk program di atas, sbb :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
begin
 a:=strtofloat(edit1.text);
 b:=strtofloat(edit2.text);
 c:=a/b;
 edit3.text:=floattostr(c);
end;

procedure TForm1.Button2Click(Sender: TObject);
var a,b,c: real;
begin
  try
    a:=strtofloat(edit1.text);
    b:=strtofloat(edit2.text);
    c:=a/b;
    edit3.text:=floattostr(c);
  except
    label4.Visible:=true;
    edit3.Text:='Error';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
label4.Visible:=false;
end;

end.

Bila teman-teman ingin mendownload program+source lengkap, bisa di ambil di SINI

Exception tidak hanya digunakan pada perhitungan seperti contoh diatas, tetapi bisa juga diterapkan pada aplikasi delphi lainnya. Seperti penghapusan data pada tabel database, bila data yang ingin dihapus sudah tidak ada, maka penggunaan exception dapat diterapkan.

Sekian tulisan sederhana ini, bila ada waktu dapat berjumpa kembali denga tulisan2 lainnya. Selamat membaca, berkarya, dan semoga dapat bermanfaat.

Regards,


Actions

Information

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s




%d bloggers like this: