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
Langganan:
Posting Komentar (Atom)
2 komentar:
mas, saya juga lagi ngoprek manipulasi file pakai delhi juga nih, saya pemula belajar delphi, kebetulan ada tugas mengecek keberadaan file di folder d, jika ada maka pindah file tersebut, gimana caranya yah, bisa bantu nggak
makasih sebelumnya
mohon izin untuk copy,,,dan semakin banyak blognya,,,,,,,,,
Posting Komentar