比如我定義了類
type
MyClass=class
b:=integer;
end;
a1,a2,a3,a4....an:MyClass
for i:=1 to n do
a(i).b:=1; 類視于這樣的方式來處理
控制元件的話可以用
timage(findcomponent('image' + inttostr(i))).Picture.。。。。
uj5u.com熱心網友回復：
定義成陣列type
MyClass=class
b:integer;
end;
var
a: array [1..n] of MyClass;
for i:=1 to n do
a[i].b:= 1;
順便提一句，記得物件要Create
uj5u.com熱心網友回復：
定義一個陣列。uj5u.com熱心網友回復：
定義一個陣列同時在創建類的時候為每個類制定一個類名便于你訪問uj5u.com熱心網友回復：
定義一個陣列，或者把創建的物件放到TList之類的串列容器中for i:=0 to List.Count-1 do
MyClass(List[i]).b:= 1;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/100405.html
標籤：VCL組件開發及應用
下一篇：delphi2007 indy