Monday, 16 January 2017T1/16/2017 08:50:00 pm

CARA PENGGUNAAN OPEN DAN SAVE DIALOG PADA DELPHI

Salam blogger….pada postingan kali ini saya akan memberikan tutorial tentang cara mudah penggunaan open dialog dan save dialog pada Delphi, komponen open dialog dan save dialog merupakan sebuah komponen yang tidak asing lagi di mata pengguna  Delphi, komponen ini sangat sering dipakai oleh para pengguna Delphi dalam hal membuat sebuah project Delphi. Open dialog merupakan sebuah komponen yang digunakan utuk membuka sebuah file dokumen pada komputer, kemudian digunakan untuk menampilkan nya kedalam form Delphi menggunakan memo. Komponen open dialog ini dapat digunakan untuk membuka bermacam – macam file dengan format txt, doc, xls, pdf dan lain sebagainya untuk dapat dipakai dalam proses selanjutnya sesuai dengan kebutuhan.

Sementara itu komponen save dialog digunakan untuk menyimpan sebuah file kedalam komputer melalui Delphi, biasanya komponen save dialog ini digunakan untuk menyimpan hasil pemprosesan data misalnya file hasil backup data dan selanjutnya disimpan dengan format tertentu dan letak file tertentu. Nah pada tutorial kali ini saya akan berbagi ilmu tentang bagaimana cara menampilkan data notepad kedalam suatu memo menggunakan open dialog dan menyimpan file notepad tersebut dengan menggunakan komponen save dialog.

Langkah pertama yang dilakukan adalah membuat sebuah project baru pada Delphi sobat, selanjutnya pada form tambahkan komponen – komponen dibawah ini :
  - 3 buah speedbutton
  - 1 buah memo
  - 1 buah open dialog
  - 1 buah save dialog
  - 1 buah Groupbox
Lalu selanjutnya desain form tersebut seperti pada contoh pada gambar dibawah ini :
Selanjutnya jika formnya sudah di desain maka selanjutnya kita akan menambahkan sedikit koding pada komponen diatas agar program yang dibuat dapat dijalankan sesuai dengan keinginan kita, adapun source code yang harus di tambahkan pada komponen di form tersebut adalah sebagi berikut :
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Text:='';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
  memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
nama:string;
begin
if savedialog1.Execute then
begin
nama:=savedialog1.FileName+'.txt';
memo1.Lines.SaveToFile(nama);
showmessage('File save successfully');
end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
memo1.Text:='';
end;
end.


Jika sudah ditambahkan kodingnya, maka coba sobat jalankan programnya dengan menekan F9/RUN, dan coba open file notepad pada komputer sobat, jika benar dilakukan maka hasil programnya akan tampil seperti pada gambar dibawah ini :
Pada gambar diatas terlihat sebuah file notepad dibuka dengan menggunakan button open dan ditampilkan kedalam memo, kemudian jika kita klik save file maka file notepad tersebut akan disimpan kedalam komputer menggunakan save dialog. Demikian tutorial singkat yang dapat saya share kepada sobat semua, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "CARA PENGGUNAAN OPEN DAN SAVE DIALOG PADA DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status