Mengecek Status Keberadaan File (Found/Not Found)
by Ahmad Prayitno on December 4th, 2008
in Pemprograman 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;

Subscribe: 

No feedback yet
Share Your Thoughts