Membuat File Teks dan Mengaksesnya Menggunakan Lazarus

Bagaimana membuat sebuah file teks menggunakan bahasa pemrograman Lazarus Free Pascal? 

Akses File Teks

Pertama kali adalah mengakses file teks yang diinginkan. Apakah file tersebut sudah ada atau belum?

procedure TForm1.Button1Click(Sender: TObject);

var

myFile : TextFile;

tText   : string;

begin

     // Try to open the Test.txt file for writing to

     AssignFile(myFile, 'test.txt');

     ReWrite(myFile);

     // Write text

     WriteLn(myFile, 'Hello World');

     Write  (myFile, '-----------');

     // Close the file

     CloseFile(myFile);

end;

AssignFile() menugaskan myFile untuk menampung file test.txt sedangkan rewrite() akan menimpa isi file. Saya menggunakan perintah Wirte() agar baris terakhir tidak menghasilkan baris baru.

Closefile() wajid digunakan untuk mengakhiri akses file tersebut agar myFile yang ditugaskan mulai menuliskan teks kedalam file.

Sekarang, temukan file test.txt di folder kerja program ini dan buka menggunakan notepad.

Source code nya bisa kamu unduh disini.

Menuliskan File

Bagian awal, kita sudah bisa membuat sebuah file teks. Beberapa perintah menuliskan teks yang bisa kita gunakan antara lain sebagai berikut:

Rewrite(MyFile) membuka file MyFile agar siap ditulis. Dalam hal penulisn file teks, maka rewrite() melakukan penulisan ulang artinya penulisan akan dimulai pada posisi awal.

Write(MyFile, 'Hello world') menulis file MyFile  dengan kata Hello world. Format penulisan harus menggunakan string. Tentunya jika ada angka yang hendak ditulis, harus diubah menjadi string menggunakan InttoStr(angka).

WriteLn(MyFile, 'Hell word') pada dasar sama dengan Write(), namun WriteLn() menambahkan baris baru diakhir kalimat atau enter, WirteLn singkatan dari Write LineNew.

Membaca File

Berikutnya membaca file teks yang telah kita buat.

Reset(MyFile) membuka file MyFile dan memindahkan posisi pembacaan di baris awal. 

Read(MyFile) membaca isi file MyFile di baris tertentu.

procedure TForm1.Button2Click(Sender: TObject);

var

   MyFile : TextFile;

   tText : string;

begin

     //Try to open text file

     AssignFile(myFile, 'test.txt');

     Reset(myFile);

     //Read a line

     Read(myFile, tText);

     Memo1.Lines.Add(tText);

     Read(myFile, tText);

     Memo1.Lines.Add(tText);

     CloseFile(myFile);

end;

ReadLn(MyFile) serupa dengan Read() hanya memiliki kemampuan memindahkan ke posis baris berikutnya.

procedure TForm1.Button3Click(Sender: TObject);

var

   Myfile : TextFile;

   tText : string;

begin

     //Try to open text file

     AssignFile(MyFile, 'test.txt');

     Reset(MyFile);

     //Read a line then move to new line

     ReadLn(MyFile, tText);

     Memo1.Lines.Add(tText);

     ReadLn(MyFile, tText);

     Memo1.Lines.Add(tText);

     CloseFile(MyFile);

end;