يمكن لدلفي أيضًا تنفيذ مصفوفات التحكم عن طريق تعريف متغيرات المصفوفة لتنفيذ مصفوفات التحكم.
قدرتي على التعبير محدودة، وهذه المقالة هي المرة الأولى التي أقوم فيها بنشر مستند، لذا يرجى أن تسامحني على أي إزعاجات.
عندما نستخدم دلفي، نجد أحيانًا مشكلة، وهي أن دلفي لا تسمح لنا بتعريف مصفوفات التحكم بسهولة مثل البرامج مثل VB أو VF. عندما أكتب قرصًا مضغوطًا تجريبيًا للوسائط المتعددة، أحتاج إلى استخدام الكثير من عناصر التحكم في الصور، وإذا لم أستخدم مصفوفة تحكم، فستكون كتابة البرنامج مزعجة ومعقدة للغاية. لذا، بعد التفكير لفترة طويلة، قررت أخيرًا تنفيذ مصفوفة التحكم من خلال تحديد متغيرات المصفوفة.
هنا هو الرمز:
PROcedure Tfrm_main.FormCreate(Sender: TObject);
فار
image:array[1..12] of TImage; // يستخدم لتخزين 12 إطارًا للصور
label:array[1..12] of TLabel;// يستخدم لتخزين 12 ملصقًا
يبدأ
// ادفع كائن الصورة إلى مصفوفة الصور
الصورة[1]:=image1;
الصورة[2]:=image2;
الصورة[3]:=image3;
الصورة[4]:=image4;
الصورة[5]:=image5;
الصورة[6]:=image6;
الصورة[7]:=image7;
الصورة[8]:=image8;
الصورة[9]:=image9;
الصورة[10]:=image10;
الصورة[11]:=image11;
الصورة[12]:=image12;
// ادفع كائن التسمية إلى صفيف التسمية
التسمية[1]:=label1;
التسمية[2]:=label2;
التسمية[3]:=label3;
التسمية[4]:=label4;
التسمية[5]:=label5;
التسمية[6]:=label6;
التسمية[7]:=label7;
التسمية[8]:=label8;
التسمية[9]:=label9;
label[10]:=label10;
label[11]:=label11;
label[12]:=label12;
نهاية؛