|
function MyFunction: WordBool; stdcall;
external 'MyDLL' name '_MyFunction@12'
Fayllar bilan ishlash funksiya va protseduralari
Kiritiladigan va chiqariladigan ma’lumotlar soni ko’p miqdorda bo’lsa ularni faylda saqlash dasturda qulaylik tug’diradi. Bu ma’lumotlar oddiy matn (tekst) fayllarida saqlanadi. Fayl o’zgaruvchisi dastur bosh qismida e’lon qilinadi, ya’ni
Type f=text;
Var
fx:f;
bu yerda f -fayl tipi, oddiy matn faylni bildiradi;
fx-fayl o’zgaruvchisi.
Kerakli fayldan ma’lumotlarni o’qishga tayyorlash uchun Assign va Reset funksiyalari ishlatiladi.
Assign-fayl o’zgaruvchisi bilan ososiy fayl orasida aloqa o’rnatadi. Assign (fx,’c:\a\f1.txt’);
Reset-faylni topib uni ishga tayyorlaydi. Reset (fx);
Bu yerda fx- fayl o’zgaruvchisi;
‘c:\a\f1.txt’-c: diskning A katalogidagi fx.txt fayldan o’qishni bildiradi.
Fayldagi ma’lumotlarni o’qish uchun Read funksiyasi ishlatiladi.
Read (, );
Misol. Read (fx, x,y,z,A[i],B[I]);
Fayldan o’zgaruvchilar yoki massivlar qiymatlarini o’qib bo’lgandan keyin fayl yopiladi. Faylni yopish quyidagi funksiya yordamida bajariladi. Close (fayl o’zgaruvchisi);
Misol. Close (fx);
Misol 1. C: diskdagi AA katalogdagi AB fayldagi ma’lumotlarni o’qib A va B massivlarga joylashtiring. Fayl ma’lumotlari strukturasi quyidagicha.
15.2 20.5
25.5
50.2
52.4
. . . . . . .
ya’ni fayl strukturasi ikki ustundan iborat ma’lumotlar to’plamidan iborat.
Program FAB;
Type
f=text;
Var
A,B: Array[1..100] of Real; m: Integer;
fxz: f;
Begin
Assign(fxz,’c:\AA\AB.txt’); Reset(fxz);
m:=0;
While not eof(fxz) do
Begin m:=m+1; Readln(fxz,A[m],B[m]); End;
Close (fxz);
End.
|
