Page 175 - Pemrograman Dasar kelas X

Bab 5 Pengembangan Algoritma Aplikasi 171

1. Pernyataan Try Except.

Pernyataan ini menjalankan serangkaian proses dengan perintah Try di depan, kemudian
setelah itu diikuti Except, untuk menandakan kejadian khusus yang dideteksi sebagai error
(kesalahan). Sintaks dari pernyataan Try Except adalah sebagai berikut.

Try
Pernyataan1;

Pernyataan2;
except
on e: exception do // Exception handling

begin
Writeln('Error: ' + e.message);

end;
end;

Untuk dapat menggunakan pernyataan Try Except di bagian awal program harus dipanggil dulu
unit-unit yang terkait dengan pengguaan pernyataan ini.
Contoh 1.

program ExceptionHandling;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,
{$ENDIF}{$ENDIF}
Classes, sysutils;
var
a, b: Integer;
Hasil: Real;
begin
try
Write('masukkan nilai a: ');
Readln(a);
Write('Masukkan nilai b: ');
Readln(b);
Hasil:= a/ b;
Writeln('a/ b = ', Hasil);
except
on e: exception do
begin
Writeln('Telah terjadi error: ', e.message);
end;
end;
Readln;
end.