Mirsaid Aripov, Nurillo Otaxanov

8.3-listing. Sodda ma`lumotlar bazasiga misol. (faylga yozish)

unit ob_havo;

...

Const DBNAME ='c:/ob_havo.txt';

Var db:TextFile;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin



8.4-rasm. "Ob-havo" ma`lumotlar bazasining dialog oynasi
CloseFile(db);

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

AssignFile(db, DBNAME); {$I-}

Append(db);

If IOResult = 0 then

begin

Edit1.Text := DateToStr(Date);

Edit2.SetFocus;

end

else begin

Rewrite(db);

if IOResult <> 0 then begin

Edit1.Enabled := False;

Edit2.Enabled := False;

Button1.Enabled := False;

ShowMessage(DBNAME + ' faylini ochishda xatolik bor');

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if (Length(edit1.text)=0) or (Length(edit2.text)= 0) then

ShowMessage('Xamma maydonlar to`ldirilishi shart. ')

else writeln(db, edit1.text,' ',edit2.text);

end;

end.

Ilova formasi aktivlashganda, FormActivate protsedurasi faylni ochadi. Edit1 maydoniga joriy sana yoziladi. Bu ma`lumot Date tipida bo’lib, uning qiymatini (double tipidagi son) ko`rish uchun Datetostr funksiyasidan foydalaniladi. Sana Edit1 maydoniga kiritilganidan keyin onActivate protsedurasi setFocus metodi yordamida kursorni temperatura maydoniga o`tkazadi. Agar faylni ochish jarayonida hatolik yuzaga kelsa, u holda dastur Qo`shib qo`yilsin tugmasini bekor qiladi va bu haqdagi axborotni ekranga chiqaradi.

TForm1.Button1Click protsedurasi (onclick) Qo`shib qo`yilsin tugmasi kiritilgan ma`lumotlarni obhavo.txt fayliga yozib qo`yadi. Bundan avval dastur hamma maydonlar to`ldirilganligini tekshiradi. Agar maydon-larning birortasi bo`sh bo`lsa, bu xaqdagi axborot ekranga chiqariladi.

Dasturning ishlashi jarayonida obhavo.txt fayli oxiriga yangi kiritilgan ma`lumotlar, ya`ni sana va temperatura yozib qo`yiladi.

Bu dasturda xar bir sanadagi ma`lumotni alohida satrga yozish uchun writeln metodidan foydalanilgan bo’lib, uchta elementdan iborat ma`lumotlarni faylga yozadi: sana, "bo`sh joy" belgisi va temperatura. Bunda "bo`sh joy" belgisi ma`lumotlarni ajratish uchun qo`shilgan.

Faylni yopish amali Tform1.Formclose protsedurasi yordamida bajariladi. U ilova formasini yopishda yuzaga keladigan onclose xodisasini qayta ishlaydi.

Ushbu dastur bir necha marta ishga tushirilganidan keyin, obhavo.txt fayli quyidagicha bo`lib qolishi mumkin:

9.05.2001 10

10.05.2001 12

11.05.2001 10

12.05.2001 7