Mengakses file txt di delphi
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
No comments:
Post a Comment