Mirsaid Aripov, Nurillo Otaxanov


end; 8.2-listingda Davomidan yozish



Download 9,81 Mb.
bet78/209
Sana16.01.2022
Hajmi9,81 Mb.
#371485
1   ...   74   75   76   77   78   79   80   81   ...   209
Bog'liq
DELPHI dasturlash titli 2018

end;

8.2-listingda Davomidan yozish tugmasi uchun protsedura matni keltirilgan. U nomi Edit1 maydonida ko`rsatilgan faylni ochib, uning davomiga Memo1 da ko`rsatilgan ma`lumotlarni yozadi.



8.2-listing. Mavjud faylning davomida yozish.

procedure TForm1.Button2Click(Sender: TObject);

var

f: TextFile;  fayl

fName: String[80];. faylning nomi

i: integer; begin

fName : Edit1.Text;

AssignFile(f, fName);

Append(f);  faylni davomidan yozish uchun ochish

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

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

Closefile(f);

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

end;

9.3. Fayllarni ochishdagi xatoliklar


Fayllarni ochishga uringanda bajarish vaqtidagi xatoliklar yuzaga kelishi mumkin. Masalan, disk yurituvchi hali ishga tayyor bo`lib ulgurmasdan (ehtimol disk qo`yilmagan yoki disk yurituvchi yopilmagan), diskdagi faylni ochishga harakat qilinishi mumkin. Yana ko`p uchraydigan hatolardan biri – mavjud bo`lmagan faylni ochishga urinishdan iborat.

Bunday xollarda ekranda kompilyatorning xatolik haqida axborot beruvchi dialog oynasi paydo bo`ladi (8.2-rasm):





8.2-rasm. Faylni ochishdagi hatolikka misol.

Dastur Delphi dan ishga tushirilgan)

Agar dastur Windows dan ishga tushirilgan bo`lsa, bu hatolik haqidagi axborot boshqacha ko`rinishda bo`ladi (8.3-rasm).

Fayllarni ochish vaqtidagi hatoliklarni nazorat qilish dastur zimmasiga yuklanishi mumkin. Bu amal IOResult (Input-Output Result — kiritish-chiqarish amalining natijasi) funksiyasi qiymatini tekshirish orqali bajariladi. Agar kiritish-chiqarish amali to`g’ri bajarilgan bo`lsa, IOResult





8.3-rasm. Faylni olishdagi hatolikka misol.

Dastur Windows dan ishga tushirilgan)

funksiyasi 0 ga, aks holda hatolik kodiga teng bo`ladi.

Dastur kiritish-chiqarish amali natijasini nazorat qila olishi uchun faylni ochish buyrug’idan oldin kompilyatorga {$I-} ko`rsatmasini berib qo`yish kerak. Bu ko`rsatma kiritish-chiqarish amallari bilan bog’liq hatoliklarni qayta ishlashni kompilyatorga ta`qiqlaydi va bu sohadagi boshqarishni dastur zimmasiga olganligini anglatadi.

Mavjud bo`lmagan faylni qo`shimcha ma`lumotlarni yozish rejimida ochishga urinish bo`lganda, yangi fayl yaratish rejimida (shu bilan hatolik bartaraf qilinadi) ochishni ta`minlaydigan algoritmga mos keladigan dastur parchasi quyidagicha yoziladi:

AssignFile(f,filename);

{$I-}

Append(f)  Faylni davomida yozish uchun ochilmoqda

{$I}

if IOResult<> 0  Ochishda hatolik yuzaga kelsa

then Rewrite(f);  faylni yangi fayl rejimida ochish

 Natijada mavjud bo`lgan yoki yangi fayl ochiladi.



Namuna. Quyidagi dastur faylni yaratish va to`ldirish uchun mo`ljallangan. Har gal dastur ishga tushganda, uning dialog oynasi ochiladi (8.4-rasm). Uning maxsus oynalariga foydalanuvchi sana (Edit1 maydoni) hamda shu kungi havo temperaturasini (Edit2 maydoni) kiritadi. Qo`shib qo`yilsin tugmasi bosilganda bu ma`lumot faylga qo`shib qo`yiladi.


Download 9,81 Mb.

Do'stlaringiz bilan baham:
1   ...   74   75   76   77   78   79   80   81   ...   209




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish