Membaca file txt

Untuk para “del-man” (delphi mania), aku akan membahas tentang pembacaan file text ( file berekstensi .txt ) menggunakan Delphi. Pertama-tama buat dulu sebuah form yg berisi 1 memo dan 3 button. Kurang lebih tampilannya seperti gambar dibawah ini.

Untuk penamaan setiap komponen, gunakan nama default dari Delphi saja. Button1 untuk Tombol Baca dari File Text, Button2 untuk Tombol Update File Text, Button3 untuk Tombol Bersihkan Hasil dan Memo1 untuk Memo Hasil Pembacaan File Text. Setelah itu simpan project dalam 1 folder dan jangan lupa buat 1 file berekstensi .txt dengan nama Del-Man.txt dan simpan 1 folder dengan project para “del-man”. Pada form tersebut terdapat :

Ø Tombol Baca dari File Text, tombol ini digunakan untuk membuka file text.

Ø Tombol Update File Text, tombol ini digunakan untuk mengupdate file text. Edit dulu pada memo, kemudian baru di update.

Ø Memo yang digunakan untuk memunculkan hasil pembacaan file.

Ø Tombol Bersihkan Hasil, tombol ini digunakan untuk membersihkan memo.

Listing dari project tersebut seperti ini para “del-man” :

procedure TForm1.Button1Click(Sender: TObject);

var f:textfile;

i,n:integer;

dt:string;

begin

try

try

AssignFile(f,'Del-Man.txt');

reset(f);

readln(f,n);

for i:=1 to n do

begin

readln(f,dt);

Memo1.Lines.Add(dt);

end;

except on EInOutError do

MessageDlg('File tidak ada',mtWarning,[mbok],0);

end;

finally closefile(f);

end;

Button2.Enabled :=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

var f:textfile;

i,n:integer;

dt:string;

begin

n:=Memo1.Lines.Count;

AssignFile (f,'Del-Man.txt');

reWrite (f);

WriteLn (f,n);

for i:=0 to n do

begin

dt:=Memo1.Lines.Strings[i];

writeln (f,dt);

end;

CloseFile (f);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Memo1.Clear;

Button2.Enabled :=false;

end;

end.

Jika para “del-man” merasa kesulitan, project ini dapat didownload disini. Project ini hanyalah contoh sederhana saja. Silahkan para “del-man” mengembangkannya sendiri.