Contoh Penggunaan Try Except di Delphi

Salah satu teknik yang penting dalam membuat aplikasi adalah kemampuan dalam melakukan exception handling atau error handling alias penanganan kesalahan. Hal ini dapat dikatakan menjadi inti jika seorang programmer hendak membangun sebuah aplikasi. Programmer harus mampu memikirkan kemungkinan-kemungkinan yang akan terjadi seperti aksi-aksi yang akan dilakukan oleh pengguna aplikasi, kesalahan atau error yang bahkan belum terjadi. hal inilah yang harus dipelajari oleh seorang programmer tentunya.

Dalam memprogram aplikasi tidak hanya sampai aplikasi dapat berjalan tapi tentu saja harus tetap dilakukan perbaikan dan perbaikan karena sebuah program tidak mungkin akan langsung sempurna. perlu terus diperbarui untuk memberbaiki kekurangan dan kesalahan-kesalahan yang ada.

Error dalam program terjadi karena adanya bug, bug terjadi karena adanya kesalahan dalam memprogram suatu aplikasi. kesalahan tersebut tidak selalu dalam penulisan coding tapi dapat juga dalam logika seorang programmer.

Dalam bahasa pemrograman objek pascal, ada sebuah utilitas yang dapat kita manfaatkan paling tidak untuk mengurangi kemungkinan terjadinya error dalam aplikasi. Dalam delphi kita dapat menggunakan Try Except. Teknik ini adalah dengan memberikan pengecualian jika terjadi error pada aksi yang akan dilakukan maka akan dilempar ke aksi yang lain. Analoginya seperti berikut :

try 
begin
aksi_utama_yang_akan_dijalankan;
end 
except
aksi_jika_terjadi_kesalahan_atau_error_pada_aksi_utama
end;

Bagaimana? Sudah ada gambaran? dengan teknik tersebut setidaknya kita dapat meminimalisir terjadinya error pada aplikasi. Berikut adalah contoh source code Try Except sederhana yang akan menjumlahkan angka yang diambil dari TEdit. Output akan ditulis di komponen Edit3, namun jika terjadi error sebuah pesan "Ops, terjadi kesalahan" yang akan ditampilkan.

  try
    begin
    Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
    end
      except
        MessageDlg('Ops, Ada Kesalahan',mtWarning,[mbok],0);
    end;