Extract Code di Delphi [Path, Dir, Name, Ext, Drive ] #210

andrypein.net : Judul aneh dari postingan kali ini ceritanya akan mengambil fullname dari sebuah file beserta directory nya kemudian kita extract satu persatu berdasarkan darimana drive, directory, path dia berasal dan meng-ekstrak nama file tersebut beserta ekstensi nya.

Fungsinya sudah disediakan di delphi itu sendiri dan penggunaannya simpel, hanya cukup dengan  ExtractFileDrive, ExtractFileDir, ExtractFilePath, ExtractFileName dan ExtractFileExt.

Untuk bahan bisa seperti pada gambar sampel di bawah ini :

Bahannya mudah saja, label nya tinggal banyakin dan sebuah openDialog.

Mulai dengan FormOnCreate beri kode :

procedure TForm1.FormCreate(Sender: TObject);
begin
  bitbtn1.Enabled:=false;
  edit1.ReadOnly:=true;
end;

Lalu pada BitButton kecil atau buton kecil apapun itu untuk browse file nya.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if Opendialog.Execute then
    begin
      edit1.text:=opendialog.FileName;
      bitbtn1.Enabled:=true;
    end;
end;

Terakhir untuk tombol oke dimana kita tampilkan hasil ekstrakan nya

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  full : string;
begin
  full:=edit1.Text;
  labeldrive.Caption:=extractfiledrive(full);
  labeldir.Caption:=extractfiledir(full);
  labelpath.Caption:=extractfilepath(full);
  labelname.Caption:=extractfilename(full);
  labelext.Caption:=extractfileext(full);
end;

Done, dengan hasil akhir aplikasi akan menjadi seperti ini :

Donlod apps extract code di delphi hanya di blog aing gan.

Download

*AFK