Mengecek Direktori Keberadaan File Menggunakan Delphi

Posted: 29 Maret 2011 in Pemerograman, Tips & trik, Tutorial
Tag:, ,

Untuk mengecek apakah suatu file ada dalam suatu direktori tertentu, Anda dapat menggunakan fungsi yang di sediakan Delphi. Rumus fungsi:FileExists(const FileName:string):boolean.

Langkah pertama:  siapkan sebuah Form dan tambahkan sebuah Button dan Edit. Klik 2x Button dan isikan listing berikut:

Procedure Tfrom.Button1Click(Sender:TObject);
begin
if FileExits(Edit1.Text) =true then // jika ada
ShowMessage('file " ' +Edit1.Text + ' " ada. ')
else // Jika tidak ada
showMessage('File " '+Edit1.Text + ' " tidak ditemukan. ');
end;
end;

Untuk menguji program bisa jalan atau engak. Tekan F9 terus masukkan sebuah direktori di Edit contoh:”D://foto/010206.jpg” tanpa tanda petik selanjutnya klik Button. Jika direktori ada maka akan ditampilkan message “file D://foto/010206.jpg ada.

Komentar
  1. m4khusaini mengatakan:

    [DCC Error] Unit1.pas(30): E2003 Undeclared identifier: ‘FileExits’

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s