Fungsi Try – Excpet On di Delhpi

Kadang kala kalau bikin program tuh banyak banget pake if-than…. yah emang klausa itu merupakan hal pokok ! tapi bagaimana kalau terjadi error on run time?

Tidak menutup program tapi kan gak enak kalau ada error gitu deh ;(

Kita langsung ke try except… apa seh itu ?

try digunakan untuk meng-eksekusi code yang kemudian jika terdapat kesalahan pada run time maka kita dapat mendesain penanganan apa yang akan dilakukan !!

perlu di ketahui efek try except ini efeknya kelihatan ketika aplikasi di jalankan bukan melalui Run On Delphi F9 OK ;p

Sebenarnya dalam delphi try excetp memiliki keberagaman bentuk dan jenis, mulai dari penangkapan yang spesifik, umum dll…

kita coba yang umum saja yah, maksudnya jika terjadi kesalahan on run time maka akan mengeksekusi dalam blok except.

sintak dasar :

try

{code yang dijalankan}

except

{jika code yang dijalankan error on run time}

end;

langsung saja :

……

……

try

…..

SQL.TEXT:=’INSERT INTO anggota VALUES(‘+””+’1′+””+’,'+””+’joko’+””+’)';

EXECUTE;

…..

except

showmessage(‘Terdapat kesalahan dalam input data’)

end;

….

heheheh !!!! dari program itu dah bisa ke bayang klo ada id yang sama maka akan mengeksekusui showmessage…. tanpa melakukan IF atau pengecekan ke tabel anggota dulu.

sama juga kalau mau melakukan delete dan lain-lain.

ke contoh sederhana lainnya :

misalnya kita inginkan tombol delete dan edit menjadi aktif ketika record di click dalam listview dan ketika record yang di click tidak memiliki nilai maka kedua tombol enabled=false;

state normal ( default dan record belum di click)

ketika salah satu record di click (tombol menjadi aktif)

perhatikan source berikut saat list view onclick :

…..

try

ListView1.Selected.Index;

Button1.Enabled:=true;

Button2.Enabled:=true;

except

Button1.Enabled:=not true;

Button2.Enabled:=not true;

end;

…..

ListView1.Selected.Index = meminta index aktif yang di click ! inilah potongan program yang mengakibatkan terjadinya error on run time, kenapa? karena ketika list view di click bukan pada record aktif berarti index tidak di temukan…. memanfaatkan situasi ini maka saya memanfaatkan blok except untuk menangkap kesalahan tersebut.

awalnya sangat menjengkelkan dan alhamdulillah sekarang error2 itu malah yang dicari biar ketahuan dapat di except heheheh

dan banyak lagi !! maka mulai-mulai neh haruz terbiasa juga pake try-except

moga-moga bermanfaat…

Dan kalau pengen tau caranya yang kita bahas pada artikel ini, silahkan download langkah-langkah yang saya terapkan langsung di dlephi berserta screen shootnya pada tombol dibawah ini.

Download : Ebook Fungsi Try – Excpet On di Delhpi

source : http://ilmukomputer.org