Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
Pemrograman

Lazarus Handling Exception #160

Tukang mi ayam tidak akan dagang baso tahu

andrypein.net : Bermula dari post yang ini tryexcept-di-delphi ada si emang-emang yang komen.

“bagaimana menghandling eksepsi pada lazarus?”

Thanks bruh sesuai rikues aing postingkan bagaimana caranya eksepsi di lazarus.

NOTED : ane pake codetyphon

Intinya sama saja seperti pada pemrograman delphi, kita bisa pakai klausa try except untuk melakukannya.

Misal kita buat aplikasi untuk menghitung bilang yang di bagi nol (yang jelas tidak bisa) maka untuk eksepsi nya kita akan munculkan pesan bahwa bilangan tidak bisa dibagi nol.

Misal pada contoh aplikasi ini :

lazarus handling exception

Aplikasi di atas masih memiliki source code sbb :

procedure TForm1.Button1Click(Sender: TObject);
var a,b : real;
begin
  b:=a/0;
  showmessage(floattostr(b));
end;  

Dan dengan source code seperti dibawah ini kita bisa melakukan eksepsi :

procedure TForm1.Button1Click(Sender: TObject);
var a,b : real;
begin
  try
  b:=a/0;
  showmessage(floattostr(b));
  except
    showmessage('gabisa bro');
  end;
end;  

Sehingga pada saat di run aplikasi akan jalan dan melakukan penolakan untuk melakukan pembagian bilangan dengan nol.

Untuk projek aplikasi lazarus handling exception bisa di unduh di bawah gan.

Download

*AFK

 

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button