Skip to main content

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

Labels:

Comments

Post a Comment

Popular posts from this blog

Optimalkan Koneksi Internet Dengan "FULL SPEED"

Bagi kita ‘penjelajah internet’ pasti mendambakan koneksi internet yang cepat, sehingga kita dapat membuka halaman web dengan lancar dan mendownload data-data yang kita perlukan di dunia maya. Bayangkan saja, kalau kita berhadapan dengan koneksi yang lelet, padahal kita harus segera menyelesaikan pekerjaan dan apa yang kita butuhkan sebenernya sudah tersedia di internet, ditanggung pasti !
30 comments
Read more

Menghitung Volume Bangun Ruang Dengan PHP

Dalam kesempatan kedua ini saya akan sharing tugas saya yang kedua. yaitu pemrograman PHP, Di dalam tugas ini mahasiswa disuruh menampilkan Volume Bola, kerucut dan kubus.Dengan ketentuan jari-jari,tinggi,sisi yang sudah ditentukan. Untuk lebih jelasnya silahkan lihat dan pelajari program dan outputanya dibawah ini : <? $phi=3.14; $r=7; $t=14; $s=10; $volbola=(4/3)*$phi*$r*$r*$r; $volkerucut=(1/3)*$phi*$r*$r*$t; $volkubus=$s*$s*$s; echo"========================================="; echo"<br/>"; echo"Nama = Fauzan Vega Saputra"; echo"<br/>"; echo"Kelas = TI_B"; echo"<br/>"; echo"NIM = 3085111136"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"| Menghitung Volume Bola, Kerucut dan Kubus |"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"
5 comments
Read more

Program java Menghitung Bangun Kerucut & Tabung

Didalam program ini user menginputkan tinggi dan jari - jari untuk bangun A dan bangun B. kemudian program mengeksekusinya sehingga akan di ketahui luas permukaan dan volume bangun A maupun bangun B, sesuai tinggi dan jari - jari yang telah di inputkan. Berikut contoh programnya : import java.io.*; class fauyan {     double r,s,t;     double phi = 3.14;     double volumekerucut, volumetabung;     double luaskerucut, luastabung; /* Email  : f_zan.hack@yahoo.com Web   : fzan-aquana.blogspot.com             fauzanvs.blogspot.com */     void hitung() {         luaskerucut = (phi * r) * (s + r);         luastabung = (phi* r * 2) * (t + r);         System.out.println(" ");         System.out.println("  Luas Permukaan Kerucut : " +luaskerucut +" cm^2");         System.out.println("  Luas Permukaan Tabung : " +luastabung +" cm^2");         System.out.println(" ");         volumekerucut = (phi * r * r * t) / 3;
1 comment
Read more