Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д

1.5. Faylni yozish uchun ochish
Faylga yozish uchun uni avval ochish kerak. Agarda yaratiluvchi faylni hosil qiluvchi dastur avval ham ishlatilgan bo‘lsa, u holda diskda ishning natijaviy fayli mavjud bo‘lishi mumkin. Shuning uchun dasturchi eski dasturga qanday kirish ni tashkil qilib olishi kerak: eski ma’lumotlarni yangisiga almashtirish kerakmi yoki eskisiga yangi ma’lumotlarni qo‘shish kerakmi? Eski fayldan foydalanish uslubi faylni ochish vaqtida aniqlanadi.
Quyidagi uslub bilan ochilgan faylga ma’lumotlarni yozish mumkin:

• 
  ustidan yozish (yangi fayl eskisini ustidan yoziladi va natijada eski fayldagi axborotlar yo‘qotiladi)
  
• 
  joriy faylga yangi ma’lumotni qo‘shish
  

yangi faylni yaratish yoki mavjud faylni yangisi bilan almashtirish uchun Rewrite(f) protsedurasiga murojaat qilinadi. Bu yerda f - TextFile tipidagi faylli o‘zgaruvchi.
Mavjud faylga yangi ma’lumotlarni qo‘shish uchun esa Append(f) protsedurasiga murijaat qilishga to‘g‘ri keladi. Bu yerda f - TextFile tipidagi faylli o‘zgaruvchi.
4.1-rasmda matnli faylga ma’lumot yozish yoki qo‘shish dasturining muloqot oynasi keltirilgan.

4.1-rasm.
4.1-lisitngda esa Yozish tugmasini bosish bilan ishga tushuvchi protsedura keltirilgan. U yangi faylni yaratadi yoki joriy faylni yangisi bilan almastirib faylga Memo1 maydonidagi matnni yozadi.
Yaratiluvchi faylning nomini Edit1 maydoniga kiritish kerak.
4.1-listing.
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // fayl
fName: String[80]; // fayl nomi
i: integer;
begin
fName := Edit1.Text;
AssignFile(f, fName);
Rewrite(f); // faylni yangitdan yaratish
// faylga yozish
for i:=0 to Memo1.Lines.Count do // satrlar noldan raqamlanadi
writeln(f, Memo1.Lines[i]);
CloseFile(f); // fayni yopish
MessageDlg(‘Ma’lumot faylga YOZILDI !!!’,mtInformation,[mbOk],0);
end;
4.2-listingda esa qo‘shish tugmasi bosilganda ishga tushuvchi protsedura keltirilgan. Bunda mavjud faylga Memo1 maydonidagi ma’lumotlar qo‘shiladi.
4.2-listing.
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile; // fayl
fName: String[80]; // fayl nomi
i: integer;
begin
fName := Edit1.Text;
AssignFile(f, fName);
Append(f); // qo‘shish uchun ochish
// faylga yozish
for i:=0 to Memo1.Lines.Count do // satrlar noldan raqamlanadi
writeln(f, Memo1.Lines[i]);
CloseFile(f); // faylni yopish
MessageDlg(‘Ma’lumotlar faylga QO‘SHILDI’,mtInformation,[mbOk],0);
end;