Lazarus Cek File Ada atau Tidak

Contoh kita mau membuat aplikasi menggunakan stand alone database seperti SQLite, sebelum program dijalankan file SQLite (contoh database.db) di cek terlebih dahulu apakah sudah ada atau belum, bila belum ada di tampilkan error, bila sudah ada program dijalankan seperti biasa.

Deklarasikan fungsi DBSQLite atau apapun nama yang anda inginkan, dibawah var paling atas

DBSQLite : string;

klik dua kali di form yang pertama dibuka sewaktu menjalankan aplikasi, tambahkan code

  DBSQLite:= 'database.db';
  if FileExists(DBSQLite) then
  begin
       SQLite3Connection1.Connected:=TRUE
  end
  else
  begin
       ShowMessage(DBSQLite+' tidak ditemukan');
       Application.terminate;
  end

Bila database tidak ditemukan muncul pesan error

lalu program di tutup (exit), bila database ditemukan program berjalan seperti biasa.

Last Updated on 30 November 2014