Pemrograman

Lazarus Handling Exception #160

Tukang mi ayam tidak akan dagang baso tahu

Andry Fadrie K April 10, 2012

0 260 1 minute read

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 :

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.