HELLO, Visitor

mengecek apakah suatu file ada dalam suatu direktori tertentu

Go down

mengecek apakah suatu file ada dalam suatu direktori tertentu

Post by Admin on Fri Oct 14, 2011 3:53 pm

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 : letakan Button dan Edit di dalam Form
Langkah kedua: isikan program dengan listing program di bawah ini
Procedure Tfrom.Button1Click(Sender:TObject);
begin
if Edit1.Text = ' ' then
ShowMessage('isikankan nama file yang dicari')
else
begin
if FileExits(Edit1.Text) = true then // jika ada
ShowMessage('file " ' +Edit1.Text + ' " ada. ')
else // Jika tidak ada
showMessage('File " ' +Edit1.Text + ' " tidak dtemukan. ');
end;
end;
langakh ketiga : Klik Run
Selamat mecoba
avatar
Admin
Admin
Admin

Leo

Jumlah posting : 69
Points : 2801
Reputation : 2
Join date : 10.10.11
Age : 33
Lokasi : Kolaka,sultra Indonesia

http://cyber.forum-canada.com

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik