Kafedra mudiri: O‘qituvchi

procedure TForm1.FormCreate(Sender: TObject);

var

i:integer;

begin

listbox1.Columns:=3;

for i:=0 to 10 do

listBox1.Items[i]:=inttostr(i+1)+'-sinf';

end;

26-MAVZU:“Oddiy arifmetika trenajori” loyixasi

27-MAVZU:“Kiril – Lotin tarjimon dasturi” loyixasi: Memo komponenti

1. Memo obyekti va uning imkoniyatlari. Ba’zi ilovalarda katta hajmdagi ma’lumotlar bilan ishlash imkoniyatlari ham bo‘lishi kerak. Delphi ning biz shu paytgacha tanishib chiqqan imkoniyatlarida buning iloji yo‘q. Endi biz bunday imkoniyatni yaratadigan boshqarish obyekti bilan tanishamiz.

Bu obyektning nomi Memo bo‘lib, u Memorandum so‘zining qisqartirilgan ko‘rinishi va xizmat uchun yozuvlar degan ma’noni bildiradi.

Bu obyekt obyektlar panelining standart jildida joylashgan:

Delphida yangi ilova yaratib, unga bu obyektni joylaymiz. Ilovani ishga tushirib, sichqonchani Memo ustida bossak, uning ish maydonchasida kursor paydo bo‘ladi. Demak, unga matn kiritish mumkin:

2. Memo obyektining asosiy xossalari. Memo obyektiga qancha matn kiritish mumkin? Unga chegara bormi? Albatta, bor. Bu obyektga kiritilgan matnda ko‘pi bilan 2¹⁶=65536 ta harf va boshqa belgilar bo‘lishi mumkin. Bu esa 1000 dan ortiq matn satri degani. Lekin, biz bu obyektda matn kiritishni emas, unga ma’lumotlarni chiqarishni mo‘ljallagan edik. Agar biz unga foydalanuvchi ma’lumot kirgiza olmasligini xohlasak, bu obyektning ReadOnly (faqat o‘qish uchun) nomli xossasini False (yolg‘on) dan True (rost) ga o‘tkazishimiz kerak:

M emo ga kiritilgan matn uning Text xossasida saqlanadi. Unda bittadan ko‘p matn satrlari bo‘lishi mumkin. Matn satrlarini bir-biridan ajratish uchun ular orasiga satr oxiri va satr boshiga o‘tish belgilarini qo‘yish kerak bo‘ladi. Buni quyidagicha amalga oshirish mumkin.