Mirsaid Aripov, Nurillo Otaxanov

8.5-listing. Fayldan o`qish

 Ochish tugmasini chertish

procedure TForm1.Button1Click(Sender: TObject);

var f: TextFile;  fayl

fName : String[80];  faylning nomi

buf: String[80];  fayldan o`qish uchun bufer

begin

fName : Edit1.Text;

AssignFile(f, fName);

{$I-}

Reset(f);  o`qish uchun ochish

{$I}

if IOResult <> 0 then begin

MessageDlg(fName  'fayliga noto`g’ri murojaat qilindi ', mtError, [mbOk], 0); exit;

end;

 fayldan o`qish

while not EOF(f) do begin

readln(f, buf);  fayldan navbatdagi satrni o`qish

Memo1.Lines.Add(buf);  satrni Memo1 ga qo`shish

end;

Closefile(f);  faylni yopish

end;

 Saqlash tugmasini chertish — faylga yozib qo`yish

procedure TForml.Button2Click(Sender: TObject);

var f: TextFile;  fayl

fName: String[80];  faylning nomi

i: integer ;

begin

fName : Edit1.Text; AssignFile(f, fName);

Rewrite(f);  faylni qayta yozish uchun ochish