Mengecek Status File

15 05 2010

Tip kali ini akan mengajarkan kepada Anda bagaimana mengecek keberadaan suatu file di direktori komputer Anda. Langkah-langkah pembuatannya. Pertama buatlah Aplikasi baru dan tambahkan satu component TButton pada Form. Pada event onClick milik Button1 tambahkan source code berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
   if FileExists('C:\coba.txt') then
      ShowMessage('File Exists.')
   else
      ShowMessage('File not Exists.');
end;

Penjelasan:

  • FileExists : adalah sebuah fungsi yang digunakan untuk mengecek keberadaan suatu file pada direktori tertentu. Pada contoh diatas adalah direktori “C:\” dengan nama file “coba.txt”. Anda dapat mengganti parameter ini dengan nama file yang ingin Anda cek keberadaannya.
  • ShowMessage : adalah sebuah fungsi untuk menampilkan pesan ke layar monitor. Pada source code diatas, akan menampilkan pesan “File Exists.” kalau file yang dicari ditemukan. Sebaliknya “File not Exists.” kalau filenya tidak ada.

Selamat Mencoba..


Aksi

Information

2 responses

29 05 2012
Zulian

Cara bikin STOP pada saat penggulungan form gimana ?

31 05 2012
Alit Widana

Dear Zulian

Terima Kasih atas komentarnya.
Untuk membuat STOP pada saat penggulungan form, coba gunakan code dibawah ini:

Timer1.Enable:=False;

Semoga membantu..

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




%d blogger menyukai ini: