03 March, 2010

Mengecek Keberadaan File dengan Delphi

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

Artikel Terkait

0 comments:

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57

Post a Comment

Template by : kendhin x-template.blogspot.com ==> Editor by : BIK