Mirsaid Aripov, Nurillo Otaxanov

8.1-rasm. Faylga yangidan yozish yoki qo`shish dasturining dialog oynasi

8.1-listingda Yangidan yozish tugmasi protsedurasi keltirilgan. U faylni yangi fayl yaratish rejimida ochadi va Memo1 oynasidagi matnni shu faylga yozadi. Faylning nomi Editl maydonida ko`rsatiladi.

8.1-listing. Fayl yaratish

procedure TForm1.Button1Click(Sender: TObject);

var

f: TextFile;  fayl

fName: String[80];  faylning nomi

i: integer;

begin

fName : Edit1.Text;

AssignFile(f, fName);

Rewrite(f);  faylni yangidan, yozish uchun ochmoqda

 Faylga yozish

for i : 0 to Memo1.Lines.Count do

 Memo da satr nomeri 0 dan boshlanadi

writeln(f, Memo1.Lines[i]);

Closefile(f);  faylni yopish

MessageDlg('Ma`lumotlar quyidagi faylga yozildi: ' #13 + Edit1.text, mtInformation, [mbOk], 0);