Mengakses file txt di delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

   Pada tutorial kali ini saya akan menjelaskan tentang bagaimana cara mengakses file yang berekstesi .txt, langkah pertama yang harus dilakukan yaitu dengan membuat file txt dan di tempatkan dalam satu folder dengan aplikasi yang akan kita buat contohnya saya membuat file txt dengan nama bacatxt.txt dan diletakkan di dalam folder baca txt.
Langkah selanjutnya yaitu membuat aplikasi yang dapat mengakses file txt dan membaca isi di dalam file txt tersebut.
Tambahkan komponen button dan memo dan tempatkan di dalam form. Kemudian klik dua kali pada komponen button dan ketikan listing sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
myFile : TextFile;
text : string;

begin
AssignFile(myFile, 'bacatxt.txt');

Reset(myfile) ;
Memo1.Clear;
while not Eof(myFile) do
begin

ReadLn(myFile, text);
Memo1.Lines.Add(text);
end;
CloseFile(myFile);
end;

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.

sumber : http://delphi.about.com


Berbagi Ilmu itu indah.