Contoh Penggunaan Open dan Save Dialog di Delphi

Open Dialog adalah salah satu komponen Delphi yang berada di Pallete Dialog. Komponen dialog ini dapat kita gunakan untuk membuka suatu file yang ada didalam komputer (misal file notepad/*.txt) kemudian menampilkannya kedalam form di delphi menggunakan komponen Memo. Namun tidak terbatas hanya untuk file txt saja, Komponen Open Dialog juga dapat digunakan untuk membuka berbagai macam file yang selanjutnya dapat kita proses.

Selain Open Dialog, terdapat juga komponen Save Dialog yang dapat kita manfaatkan untuk menyimpan suatu file kedalam komputer seperti menyimpan hasil pemrosesan data (hasil backup database) dan semacamnya. berikut saya ingin berbagi contoh penggunaan open dan save dialog di delphi.

Pada contoh ini akan dilakukan pemrosesan pada sebuah file txt dimana akan dibuka oleh Open Dialog dan ditampilkan kedalam komponen memo kemudian hasil pemrosesan akan disimpan melalui save dialog. berikut adalah contoh coding yang saya gunakan

// Buka File TXT
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

// Simpan Hasil
procedure TForm1.Button2Click(Sender: TObject);
var
namafile : string;
begin
if SaveDialog1.Execute then
begin
NamaFile := SaveDialog1.FileName+'.txt';
Memo1.Lines.SaveToFile(namafile);
ShowMessage('Berhasil disimpan!');
end;
end;