var
AryPnl: array of TPanel;
i: integer;
begin
for i := 0 to 10 do
begin
AryPnl[i] := TPanel.Create(self);
......
endl;
end;***********
warning: AryPnl may not has been init...
**********
why?
AryPnl: array of TPanel;
i: integer;
begin
for i := 0 to 10 do
begin
AryPnl[i] := TPanel.Create(self);
......
endl;
end;***********
warning: AryPnl may not has been init...
**********
why?
最后你用 for i := 0 to 10 do
begin
FreeAndNil(AryPnl[i]);
......
endl;
她就不会有警告了