创建一个数组,可以指定一个较大的长度,也可以动态改变长度,
用它记录组件就成了
如
var
arrTemp : array[1..10] of TDBEDIT;
begin
arrTemp[1] := TDBEDIT.create(nil);
arrTemp[2] := TDBEDIT.create(nil);
end;
用它记录组件就成了
如
var
arrTemp : array[1..10] of TDBEDIT;
begin
arrTemp[1] := TDBEDIT.create(nil);
arrTemp[2] := TDBEDIT.create(nil);
end;
edt:array of TDBEdit;SetLength(edt,n);
for i:= 0 to n-1 do
begin
edt[i] := TDbedit.Create(self);
edt[i].Parent := self;
end;