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