Mengakses File txt di Delphi XE5

By: QMPC Network on 20.17

Pada tutorial kali ini penulis akan menjelaskan tentang bagaimana cara mengakses file yang berekstesi .txt, langkah-langkahnya seperti berikut ini :
Langkah 1 :
Pertama yang harus dilakukan yaitu dengan membuat file txt dan di tempatkan dalam satu folder dengan aplikasi yang akan kita buat contohnya seperti berikut ini :

Langkah 2 :
Simpan file txt dengan nama file-txt.txt dan diletakkan di dalam folder project.

Langkah 3 :
Selanjutnya yaitu membuat aplikasi yang dapat mengakses file txt dan membaca isi di dalam file txt tersebut.

Langkah 4 :
Tambahkan komponen button dan memo dan tempatkan di dalam form. Hasilnya seperti berikut ini :

Langkah 5 :
Kemudian klik dua kali pada komponen button dan ketikan source code berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
text : string;
begin
AssignFile(myFile, 'file-txt.txt');
Reset(myfile) ;
Memo1.Clear;
while not Eof(myFile) do
begin
ReadLn(myFile, text);
Memo1.Lines.Add(text);
end;
CloseFile(myFile);
end;

Langkah 6 :
Simpan aplikasi yang kita buat dan di simpan satu folder dengan file txt yang kita buat tadi. setelah itu run aplikasi yang kita buat. ketika di jalankan dan button di klik maka isi yang ada di dalam file txt akan di salin dan dimasukkan ke dalam memo dan hasilnya seperti berikut ini :