Membuat dan Membaca File dari Delphi
Dari Delphi, kita dapat membaca dan membuat sekaligus menulis file. Berikut ini contoh program untuk membaca dan membuat file dari aplikasi Delphi.
Langkahnya adalah :
1. Buat Aplikasi baru di aplikasi Delphi dengan cara File – new – Application.
2. Tambahkan component pada design Form yang tampil, dan atur properties pada masing-masing form seperti berikut :
|
Object
|
Properties
|
Value
|
|
Form
|
Caption
|
Create And Write File
|
|
SaveDialog
(tab dialog)
|
DefaultExt
Filter
|
.txt
TXT|*.txt|All File|*.*
|
|
OpenDialog
(tab dialog)
|
DefaultExt
Filter
|
.txt
TXT|*.txt|All File|*.*
|
|
Memo
(tab standard)
|
Lines
| |
|
Button
(tab standard)
|
Caption
|
Create File
|
|
Button
(tab standard)
|
Caption
|
Read File
|
|
Button
(tab standard)
|
Caption
|
&Keluar
|
Dan atur tampilannya seperti berikut :
3. Selanjutnya
kita akan mengisikan source code form. Buat variable global yang
mempunyai type data ‘TStringList’. Tujuannya agar variable tersebut bisa
kita akses melalui semua procedure atau function yang ada didalam form
ini. Letakkan variable tepat diatas implementation dan Nama variable adalah :
fileData : TStringList;
4. Selanjutnya buat 2 procedure dibawah implementation seperti berikut :
procedure createFile(nm_file, isi_file:String);
var
myFile : TextFile;
begin
AssignFile(myFile, nm_file);
ReWrite(myFile);
WriteLn(myFile, isi_file);
CloseFile(myFile);
end;
procedure readFile(nm_file:String);
var lines,i : integer;
saveLine : String;
begin
fileData := TStringList.Create;
fileData.LoadFromFile(nm_file);
lines := fileData.Count;
for i := 0 to lines - 1 do
begin
saveLine := fileData[i];
fileData[i] := saveLine;
end;
end;
5. Selanjutnya isikan source code pada events onClick pada tombol ‘Create File’. Isi source code adalah :
procedure TForm1.Button1Click(Sender: TObject);
begin
if trim(Memo1.Text)='' then begin
beep;
ShowMessage('Isi File Harus Ada ...!');
exit;
end else
if SaveDialog1.Execute then
if SaveDialog1.FileName<>'' then
createFile(SaveDialog1.FileName, Memo1.Text);
end;
6. Source code pada events onClick pada tombol ‘Read File’. Isi source code adalah :
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
if OpenDialog1.Execute then
if OpenDialog1.FileName<>'' then begin
readFile(OpenDialog1.FileName);
Memo1.Lines.Append(fileData.Text);
end;
end;
7. Isi pada tombol ‘Keluar’. Isi source code :
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
8. Jalankan program dengan klik F9 atau tombol Run ( Run - Run )
Source code selengkapnya :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Button3: TButton;
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
fileData : TStringList;
implementation
{$R *.dfm}
procedure createFile(nm_file, isi_file:String);
var
myFile : TextFile;
begin
AssignFile(myFile, nm_file);
ReWrite(myFile);
WriteLn(myFile, isi_file);
CloseFile(myFile);
end;
procedure readFile(nm_file:String);
var lines,i : integer;
saveLine : String;
begin
fileData := TStringList.Create;
fileData.LoadFromFile(nm_file);
lines := fileData.Count;
for i := 0 to lines - 1 do
begin
saveLine := fileData[i];
fileData[i] := saveLine;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if trim(Memo1.Text)='' then begin
beep;
ShowMessage('Isi File Harus Ada ...!');
exit;
end else
if SaveDialog1.Execute then
if SaveDialog1.FileName<>'' then
createFile(SaveDialog1.FileName, Memo1.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
if OpenDialog1.Execute then
if OpenDialog1.FileName<>'' then begin
readFile(OpenDialog1.FileName);
Memo1.Lines.Append(fileData.Text);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
No comments:
Post a Comment