首先:
Array_Lable: array[0..12] of TLabel;
然后:
Array_Lable[0] := Label1;
Array_Lable[1] := Label2;
Array_Lable[2] := Label3;
Array_Lable[3] := Label4;
Array_Lable[4] := Label5;
Array_Lable[5] := Label6;
Array_Lable[6] := Label7;
Array_Lable[7] := Label8;
Array_Lable[8] := Label9;
以后要有统一的操作的话就:
for I := 0 to 8 do
begin
Array_Lable{就行了}
end;
////////////////////////////
如果这样还不够,就用StringList吧!