Membuat File Text dengan AssignFile

Sejak meninggalkan dunia Dos, file text terkadang sering dilupakan. Dunia penuh gambar sering lebih menarik daripada sekedar menulis file text. Namun keserdehanaannya dan kepraktisannya membuat saya masih sering memakainya, misalkan untuk melaporkan kesalahan pemrograman atau sebagai file temporer.

Di Delphi, membuat file text sangat mudah. Pertama-tama kita harus memikirkan nama file tersebut. Kemudian tempat file tersebut.

var
    NamaFile   : String;
begin
    NamaFile :=
        ExtractFilePath(Application.ExeName) + 'Catatan.txt';
        Application.ExeName;
end;

Pada cuplikan kode program diatas, saya memberikan nama file text Catatan.txt dan tempat default file text adalah satu tempat dengan file exe program yang membuatnya. Jika Anda meletakkan file executable di D:\Dokumen, maka perintah berikut:

ExtractFilePath(Application.ExeName)

Akan memberikan kepada Anda path dari file tersebut, yaitu: D:\Dokumen\

Saat kita menghubungkan file text tersebut dengan nama file, kita menggunakan perintah seperti berikut:

AssignFile(NamaFile);

Sesudah memakai perintah AssignFile, kita perlu membuka file tersebut. Ada dua cara untuk membukanya. Pertama memakai perintah Append, kedua memakai perintah Rewrite

Append digunakan jika file text tersebut sudah ada, sehingga tulisan yang ditulis akan ditulis dibawah tulisan terdahulu.

Rewrite akan membuat filenya terlebih dahulu. Jika sudah ada, file tersebut akan dihapus, sehingga tulisan yang ditulis selalu menjadi baris pertama.

Dalam program di artikel ini, saya mendeteksi keberadaan file text catatan.txt terlebih dahulu dengan FileExists. Jika ada, saya membukanya dengan Append, jika tidak, saya akan membuat file dengan Rewrite. 

if FileExists(NamaFile) then
        //Kalau filenya sudah ada ditambahkan dibawahnya
        Append(OutPutFile)
    else
        //Kalau filenya belum ada dibuat dulu filenya
        Rewrite (OutputFile);

Baris yang akan ditulis dengan file, ditulis dengan menggunakan perintah WriteLn

Writeln (OutputFile, 'Ini baris pertama');
Writeln (OutputFile, 'Ini baris kedua');
Jangan lupa memberikan perintah dibawah ini untuk menutup file dan menuliskan tulisan ke file text

CloseFile (OutputFile);
 

Program Selengkapnya:

  unit UnitUtama; interface uses Windows, Messages, SysUtils, Classes, Forms, StdCtrls, Controls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var OutputFile : TextFile; NamaFile : String; begin NamaFile := ExtractFilePath(Application.ExeName) + 'Catatan.txt'; Application.ExeName; AssignFile (OutputFile, NamaFile); if FileExists(NamaFile) then //Kalau filenya sudah ada ditambahkan dibawahnya Append(OutPutFile) else //Kalau filenya belum ada dibuat dulu filenya Rewrite (OutputFile); try Writeln (OutputFile, 'Ini baris pertama'); Writeln (OutputFile, 'Ini baris kedua'); finally CloseFile (OutputFile); end; end; end.

Membuat File Text dengan AssignFile 2015-10-09T10:34:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer