FormCreate 中的语句不被执行

[hiya_data]

昨天，在编写程序时，发现一个 FormCreate 中的语句没有被执行，类的初始化不能完成，出现 access violation 错误。后来，在 FormCreate 中加入了一个无关的语句，这个 FormCrete 才被执行，程序运行正常。今天，又遇到类似的问题。昨天的老办法不行，重启 Delphi 不行，重启电脑也不行。诚请大师指点。

程序具体如下：

type
TfrmVariable = class(TfrmEditBase)
procedure FormCreate(Sender: TObject);
......

procedure TfrmVariable.FormCreate(Sender: TObject);
begin
inherited;
MyVarList := TDefVarList.Create;
MyVarList.Assign(ETest.Variable);
MyVarList.MaxUndo := 1024;
EList := @MyVarList;
end;

在调试中，没有看到FormCreate 内的语句被执行。

[hiya_data]

终于试出来了。 把 TfrmEditBase.FormCreate 写进一句注释，问题就解决了。 但是，为什么?

• 打赏
• 举报

回复 赞