我在 Delphi XE2(更新 4 修补程序 1)上有一个错误,它在我工作的遗留项目中重复了很多次(它从 D6 演变到 D7、D2006,最后是 XE2),但我不知道如何触发它在一个较小的项目中。
最近一次,它在为应用程序上的“隐藏弹出窗口”创建事件处理程序时触发。当我单击菜单选项以创建 Click 处理程序时,会发生这种情况。
pprocedure TMainForm.Blablabla1Click(Sender: TObject);
begin
end;
rocedure TMainForm.FormActivate(Sender: TObject);
您可以看到 IDE 在下一个方法的声明中插入了新代码……但这还不是全部。几乎所有时候,在 DPR 上,代码也会被破坏:
AApplication.CreateForm(TDM_DataAcc, DM_DataAcc);
AApplication.CreateForm(TMainForm, MainForm);
pplication.CreateForm(Tfrm_login, frm_login);
f frm_Login.CanLogin = mrOK then Application.Run
(几乎就是这样,我不记得第 3 个 Application.CreateForm 是否剪裁了它的“A”,另一个我确定是加倍的,并且IF
它的“I”剪裁了)。
追逐 QualityCentral 无济于事(一无所获)。这有时也会发生在类完成(Ctrl-SHIft-C)上。
有人知道是什么触发了这个错误,所以我可以创建一个新应用程序并将其发送到 Embarcadero?