Mirsaid Aripov, Nurillo Otaxanov

7.5-rasm. Massivni kiritish ilovasining dialog oynasi

7.5-listing. Memo komponentasi yordamida massiv kiritish.

procedure TForm1.Button1Click(Sender: TObject);

const

SIZE  5;  massiv o`lchami

var a : array[1..SIZE] of string[30];  massiv

n: integer;  satrlar soni

I : integer;  massiv elementlarining indeksi

st:string;

begin

n : Memo1.Lines.Count;

if n  0 then begin

ShowMessage('Boshlang’ich ma`lumotlar noto`g’ri!');

Exit;  protseduradan chiqish

end;

 Memo maydoniga matn kiritilgan

if n > SIZE then begin

ShowMessage('Satrlar soni massiv o`lchamidan katta.');

n : SIZE;  faqat dastlabki SIZE ta satrni olamiz

end;

for i : 1 to n do

a[i] : Form1.Memo1.Lines[i-1];

 Memo maydoni satrlari noldan boshlab nomerlangan

 massivni ma`lumotlar oynasiga chiqarish

if n > 0 then begin

st : 'Kiritilgan massiv:'  #13;

for i : 1 to n do

st : st  IntToStr(i)  ' ' a[i]  #13;

ShowMessage(st);

end;

end;

end.

Bu dasturda asosiy ishni TForm1.Button1Click protsedurasi bajaradi. U dastlab Memo1 maydonida matnning bor yoki yo`qligini tekshiradi. Agar matn bo`lsa, (bu holda Lines.Count hususiyati noldan katta), protsedura Memo maydonidahi satrlar soni va massiv o`lchamini taqqoslaydi. Agar bu miqdor massiv o`lchamidan katta bo`lsa, u holda kompilyator n ning qiymatini o`zgartirib, dastlabki SIZE ta satrni oladi.

7.6-rasmda Massiv kiritish dasturining dialog oynasi keltirilgan. Kiritish tugmasi chertilganida, ekranda 7.7-rasmdagi oyna ochiladi. Undagi massiv elementlarini Memo maydonidan olgan.

7.6-rasm. Massiv kiritish ilovasining dialog oynasi

7.7-rasm. Memo maydonidan kiritilgan massiv