Delphi juga dapat mengimplementasikan array kontrol dengan mendefinisikan variabel array untuk mengimplementasikan array kontrol.
Kemampuan berekspresi saya terbatas, dan artikel ini adalah pertama kalinya saya menerbitkan dokumen, jadi mohon maaf atas ketidaknyamanan ini.
Saat kita menggunakan Delphi, terkadang kita menemukan masalah yaitu Delphi tidak memungkinkan kita untuk mendefinisikan array kontrol semudah perangkat lunak seperti VB atau VF. Ketika saya menulis CD demo multimedia, saya perlu menggunakan banyak kontrol Gambar, dan jika saya tidak menggunakan array kontrol, akan sangat merepotkan dan rumit untuk menulis program. Jadi setelah berpikir lama, akhirnya saya memutuskan untuk mengimplementasikan array kontrol dengan mendefinisikan variabel array.
Ini kodenya:
Prosedur Tfrm_main.FormCreate(Pengirim: TObject);
var
image:array[1..12] dari TImage; //Digunakan untuk menyimpan 12 bingkai gambar
label:array[1..12] dari TLabel;//digunakan untuk menyimpan 12 label label
mulai
//Bayar objek gambar ke array gambar
gambar[1]:=gambar1;
gambar[2]:=gambar2;
gambar[3]:=gambar3;
gambar[4]:=gambar4;
gambar[5]:=gambar5;
gambar[6]:=gambar6;
gambar[7]:=gambar7;
gambar[8]:=gambar8;
gambar[9]:=gambar9;
gambar[10]:=gambar10;
gambar[11]:=gambar11;
gambar[12]:=gambar12;
//Bayar objek label ke array label
label[1]:=label1;
label[2]:=label2;
label[3]:=label3;
label[4]:=label4;
label[5]:=label5;
label[6]:=label6;
label[7]:=label7;
label[8]:=label8;
label[9]:=label9;
label[10]:=label10;
label[11]:=label11;
label[12]:=label12;
akhir;