var
MyButtons: array[0..10000] of TButton;
i: Integer;
begin
for i := 0 to 9999 do
begin
MyButtons[i] := TButton.Create(Self);
MyButtons[i].Parent := Self;
end; for i := 9999 downto 0 do
MyButtons[i].Free;
end;
MyButtons: array[0..10000] of TButton;
i: Integer;
begin
for i := 0 to 9999 do
begin
MyButtons[i] := TButton.Create(Self);
MyButtons[i].Parent := Self;
end; for i := 9999 downto 0 do
MyButtons[i].Free;
end;
在Delphi中,所有的对象都是指针(和JAVA一样),所以指能声明对象指针数组,必须再为每个数组元素创建对象.
在Delphi中,所有的对象都是指针(和JAVA一样),所以指能声明对象指针数组,必须再为每个数组元素创建对象.