Mengecek Keberadaan File Dengan Delphi

Untuk mengecek status keberadaan file, bisa gunakan fungsi File Search. Perintah dasar untuk File Search dalam delphi adalah FileSearch(const Name, DirList: string): string;

Berikut contoh penerapan File Search. Siapkan sebuah EditText dan Button, dan terapkan source code berikut ini.

procedure TForm1.Button1Click(Sender: TObject);
var
FileToFind: string;
begin
FileToFind := FileSearch(Edit1.Text, GetCurrentDir);
if FileToFind = '' then
ShowMessage('Couldn''t find ' + Edit1.Text + '.')
else
ShowMessage('Found ' + FileToFind + '.');
end;

Semoga membantu ... :)