Membaca File Text dari Delphi
Untuk membaca file Text dari program delphi
berikut adalah script nya
var:
var f1, f2 : TextFile;
ch : string;
ch : string;
Begin
assignfile(f1,'login.txt');
reset(f1);
readln(f1,ch);
reset(f1);
readln(f1,ch);
MessageDlg(ch, mtWarning, [mbOK], 0);
end;
assignfile(f1,'login.txt'); --> membuka file text dengan nama login.txt
readln(f1,ch); -> membaca file tersebut dan dimasukan ke variabel ch
sehingga cariabel tersebut bisa ditampilkan
terima kasih