begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2 := tform2.create(application);
if form2.showmodal = 1 then
Application.Run;end.你看看,点选了Form2.bkOK,就有Application.Run,选择Form2.bkCancel呢,
Application何去何从?既没有终止,也没有投入运行。
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2 := tform2.create(application);
if form2.showmodal = 1 then
Application.Run;end.你看看,点选了Form2.bkOK,就有Application.Run,选择Form2.bkCancel呢,
Application何去何从?既没有终止,也没有投入运行。
application何去何从?无application.run,此application就自动结束呗
现在我认为是adoquery的问题
destructor TCustomADODataSet.Destroy;
begin
Destroying;
Close;
SetConnection(nil);
FreeAndNil(FCommand);
FreeAndNil(FModifiedFields);
FreeAndNil(FIndexDefs);
FreeAndNil(FIndexFields);
FreeAndNil(FMasterDataLink);
FreeAndNil(FParams);
inherited Destroy;
end;
当FreeAndNil(FCommand)时
继续跟踪到
TADOCommand的Destroy
当FCommandObject = nil时出错
FCommandObject为一_Command接口
当赋为nil时调用_IntfClear时出现异常,不知为何
怎么在你说的位置加一断点,我打开了adodb.pas,在你说的FreeAndNil(FCommand);处加了一断点(F5),然后运行程序(F9),程序好象不会在我加断点处停下来啊?你怎么做的?