Avtomatika va elektrotexnologiya

Yozuvni e‟lon qilish 
Dasturchi  tomonidan  yaratilayotgan  ixtiyoriy  tip  kabi  "yozuv"  tipi  ham  Type  bo‘limida 
elon qilinishi kerak. "Yozuv" tipini quyidagicha  e‘lon qilinadi: 
Nomi = record 
Maydon_1 : Tip_1;  
Maydon_2 : Тip_2; 
Maydon_К : Tip_К;  
end; 
Bu yerda: 

 
Nomi —  "yozuv" tipining nomi; 

 
record — yozuvni e‘lon qilish uchun Delphining kalit so‘zi; 

 
Maydon_i va tip_i — yozuv komponentining (maydonining) nomi va tipi, bu yerda i=1, 
..., k;  

 
end — maydonlar ro‘yhati tugaganligini bildiruvchi Delphining kalit so‘zi. 
E‘lon qilishga misollar: 
type 
TPerson = record 
f_name: string[20]; 
L_name: string[20]; 
day: integer; 
month: integer; 
year: integer; 
address: string[50];  
end; 
TDate = record 
day: integer;  
month: integer;  
year: integer;  
end; 

---

Yozuv tipini e‘lon qilgandan keyin yozuvning o‘zini e‘lon qilish mumkin, masalan: 
var 
student : TPerson; 
 birthday : TDate; 
Yozuv maydoniga murojaat etish uchun yozuv  va maydon nomlarini nuqta bilan ajratib 
ko‘rsatish  kerak.  Masalan  quyidagi  buyruq  student  yozuvining  f_name  va  address 
maydonlaridagi ma‘lumotlarni ekranga chiqaradi: 
ShowMessage('Nomi: ', student.f_name + #13 + 'Adres: ', student.address); 
Ba‘zan  yozuv  o‘zgaruvchisining  tipi  bevosita  o‘zgaruvchilarni  e‘lon  qilish  bo‘limida 
e‘lon  qilinadi.    Bunday  holatda  yozuv  tipi  ikki  nuqta  orqali  birdaniga  o‘zgaruvchi  nomi  bilan 
ko‘rsatiladi. Masalan, student yozuvi var bo‘limida quyidagicha e‘lon qilinadi: 
student: record 
f_name:string[20]; 
l_name:string[20]; 
day:integer; 
month:integer; 
year:integer; 
address:string[50];