Mirsaid Aripov, Nurillo Otaxanov

9.8-rasm. Dinamik ro`yxat dasturining dialog oynasi

9.4-listing. Dinamik ro`yxatga yangi element qo`shish

type

TPStudent  ^TStudent;  TStudent tipi dagi ko`rsatkich

TStudent  record

f_name:string[20];  familiya

l_name: string[20];  ismi

next: TPStudent;  ro`yxatning keyingi elementi

end;

var

head: TPStudent;  Ro`yxatning boshlanishi

 Ro`yxat boshiga yangi element qo`shish

procedure TForm1.Button1Click(Sender: TObject);

var

curr: TPStudent;  ro`yxatning yangi elementi

begin

new(curr);  ro`yxat elementi uchun joy jratish

curr^.f_name : Edit1.Text;

curr^.l_name : Edit2.Text;

 ro`yxat boshiga qo`shilmoqda

curr^.next : head;

head : curr;

 Kiritish maydoni tozalanmoqda

Edit1.text :''; Edit2.text : '' ;

end;

 ro`yxatni ekranga chiqarish

procedure TForm1.Button2Click(Sender: TObject);

var

curr: TPStudent;  ro`yxatning joriy elementi

n:integer;  ro`yxat (elementlarining) soni

st:string;  Ro`yxatning satrli ko`rinishi

begin n : 0; st : '';

curr : head;  ro`yxatning birinchi elementi

while curr <> NIL do begin

n : n  1;

st : st  curr^.f_name  ' '  curr^.l_name  #13;

curr : curr^.next;  ro`yxatning keyingi elementini ko`rsatish

end;

if n <> 0

then ShowMessage('Ro`yxat:'  #13  st)

else ShowMessage('Ro`yxatda elementlar yo`q.');

end;

end.

Ro`yxatga element qo`shishni Button1Click protsedurasi bajaradi. U dinamik o`zgaruvchi-yozuvni yaratadi, uning maydonlariga interfeys kiritish maydonlaridagi qiymatlarni joylashtiradi hamda ko`rsatkichning head maydoniga tuzatmalar kiritadi.

Ro`yxatni ekranga Button2Click protsedurasi chiqaradi. Ro`yxat elementlari bilan ishlash uchun curr ko`rsatkichidan foydalanilgan. Dastlab u ro`yxatning birinchi elementi manziliga teng. Birinchi element qayta ishlanganidan so`ng, curr ko`rsatkichiga u ko`rsatayotgan yozuvning next maydoni qiymatini beradi. Natijada curr o`zgaruvchisi ro`yxatning ikkinchi elementi manziliga teng bo`ladi va h.k. Ko`rsatkich shunday usul bilan ro`yxat elementlari bo`ylab surilib boradi. Bu jarayon to joriy element next maydonining qiymati (curr ko`rsatayotgan element manzili) NIL bo`lib qolmaguncha davom etadi.