Delphi tilida

Exteraal 'Cmplx' index 4; 
Implementation end. 
Boshqa tilda yozilgan DLL protseduralariga murojaat qilinganda 
ularning tashqi nomi Delphi qoidasiga to‘g‘ri kelmasligi mumkin. 
Masalan C++ tili identifikatorlarda «@» simvolidan foydalanishga 
ruxsat beradi. Bu holda Delphi qoidasiga mos nom berib «name» 
so‘zidan so‘ng asl nomini ko‘rsatish kerak. Masalan: 
function MyFunction: WordBool; stdcall; 
external 'MyDLL' name _'MyFunction@ 12' 
2.9.Fayllar bilan ishlash funksiyasi 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: 

44 

15.2 20.5 
20.1 25.5 
20.2 50.2
26.8 52.4 

Write — o‘zgaruvchi qiymatini fayl o‘zgaruvchisiga uzatadi va 
faylga yozadi. Write (fayl o‘zgaruvchisi. o‘zgaruvchilar); 
Close —ochilgan faylni yopadi. Close (fayl o‘zgaruvchisi); 
Misol 2. C: diskning AA katalogidagi AB fayli ma’lumotlarini A 
va B massivlarda o‘qib. shu massivlarga mos elementlarni qo‘shib C 
massivini tashkil qiling va A,B,C massivlarini ABC nomli faylga 
joylashtiring. 
Fayl ma’lumotlari tuzilmasi quyidagicha bolsin: 

Program FABS; 

45 

End; 

Assign(fax,’c:\AA\ABC.txt’); Rewrite(fax); 
Append(fax); 
For i:=to m do 

Close(fax);