1

我已经搜索和搜索，但没有找到示例。我想动态创建PageControl实例，每个实例都有自己的 setoff TTabsheets。我没有收到来自 Delphi IDE 的任何投诉，但是我确实得到了：

模块 FormApplication.exe 写入地址 00000000 中的访问冲突

有什么我想念的吗？

procedure TForm1.FormCreate(Sender: TObject);
type
  ABC_Status_Object = record
    ABC_PageControl_instance: TPageControl;
    quickStat_instance: TTabsheet;
    detailStat_instance: TTabsheet;
    abc_light: TShape;
  end;

var
  ABC_Status: array of ABC_Status_Object;
  I: Integer;
  Frac, Icnt: Extended;

begin
  inifile := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
  loadGlobalConfig;

  Frac := 100/NUM/100;
  for I := 0 to NUM do
  begin
    {// Create the Tabs: }
    ABC_Status[I].ABC_PageControl_instance := TPageControl.Create(self);
    ABC_Status[I].ABC_PageControl_instance.Parent := self;
    ABC_Status[I].quickStat_instance := TTabsheet.Create(ABC_Status[I].ABC_PageControl_instance);
    ABC_Status[I].detailStat_instance := TTabsheet.Create(ABC_Status[I].ABC_PageControl_instance);
    ABC_Status[I].quickStat_instance.PageControl := ABC_Status[I].ABC_PageControl_instance;
    ABC_Status[I].detailStat_instance.PageControl := ABC_Status[I].ABC_PageControl_instance;

    {// Set the attributes of each instance of PageControl, including the tabs: }
    ABC_Status[I].ABC_PageControl_instance.Visible := TRUE;
    ABC_Status[I].ABC_PageControl_instance.Top := 0;
    if(NUM = 1) then
      ABC_Status[I].ABC_PageControl_instance.Width := ClientWidth;

    if(NUM > 1) AND (NUM < 4) then
    begin
      Icnt := 100/(I+1)/100;

      ABC_Status[I].ABC_PageControl_instance.Width := Trunc(ClientWidth*Frac);
      ABC_Status[I].ABC_PageControl_instance.Left := 30;
    end;
    ABC_Status[I].quickStat_instance.Caption := 'Quick Status';
    ABC_Status[I].quickStat_instance.Visible := TRUE;
    ABC_Status[I].detailStat_instance.Caption := 'Details';
    ABC_Status[I].detailStat_instance.Visible := TRUE;
  end;

end;
4

1 回答 1

5

您没有分配数组。在访问数组之前，您需要添加以下内容：

SetLength(ABC_Status, NUM+1);

这+1是因为您使用了相当非标准的循环边界。

也100/100 = 1这样的表达100/NUM/100似乎很奇怪。你不妨写1/NUM。

您对非标准Extended类型的使用似乎也很奇怪。我认为没有太大必要。

可能还有更多错误，但我在这里停下来。

于 2017-12-20T18:45:34.387 回答