Delphi kann auch Kontrollarrays implementieren, indem Array-Variablen definiert werden, um Kontrollarrays zu implementieren.
Meine Ausdrucksmöglichkeiten sind begrenzt und dieser Artikel ist das erste Mal, dass ich ein Dokument veröffentliche. Bitte verzeihen Sie mir etwaige Unannehmlichkeiten.
Wenn wir Delphi verwenden, stoßen wir manchmal auf ein Problem, nämlich dass Delphi es uns nicht erlaubt, Steuerelement-Arrays so einfach zu definieren wie Software wie VB oder VF. Wenn ich eine Multimedia-Demo-CD schreibe, muss ich viele Bildsteuerelemente verwenden. Wenn ich kein Steuerelementarray verwende, ist das Schreiben des Programms sehr mühsam und kompliziert. Nachdem ich lange darüber nachgedacht hatte, entschied ich mich schließlich, das Steuerarray durch die Definition von Array-Variablen zu implementieren.
Hier ist der Code:
PROcedure Tfrm_main.FormCreate(Sender: TObject);
var
image:array[1..12] of TImage; //Wird zum Speichern von 12 Bildrahmen verwendet
label:array[1..12] of TLabel;//wird zum Speichern von 12 Etiketten verwendet
beginnen
//Zahlen Sie das Bildobjekt an das Bildarray
Bild[1]:=Bild1;
Bild[2]:=Bild2;
Bild[3]:=Bild3;
Bild[4]:=Bild4;
Bild[5]:=Bild5;
Bild[6]:=Bild6;
Bild[7]:=Bild7;
Bild[8]:=Bild8;
Bild[9]:=Bild9;
Bild[10]:=Bild10;
Bild[11]:=Bild11;
Bild[12]:=Bild12;
//Zahlen Sie das Label-Objekt an das Label-Array
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;
Ende;