释放数据模块内存出错问题

Question

我在释放数据模块的时，会出现内存访问出错，请问一下这个是什么原因？先谢了代码如下：   if not Assigned(ScglSimple_Data_For) then ScglSimple_Data_For := TScglSimple_Data_For.Create(nil);
  if not Assigned(Main_For) then Main_For := TMain_For.Create(nil);
  try
    Main_For.ShowModal;
  finally
    FreeAndNil(Main_For); //这句还不会出错
    FreeAndNil(ScglSimple_Data_For);//ScglSimple_Data_For是数据模块的窗口，释放时会出错
  end; 
错误信息如下： 
Access violation at address 00000000. Read of address 00000000

Answer 1

我按你所说的，试了一下，没有出现你所说的问题，你是不是还有别的方法调用datamoudle的数据库什么没有释放呀。
    if not Assigned(DataModule2) then DataModule2 := TDataModule2.Create(nil);
  if not Assigned(form3) then form3 := Tform3.Create(application);
  try
    form3.showmodal;
  finally
    FreeAndNil(form3);
    FreeAndNil(DataModule2);//ScglSimple_Data_For是数据模块的窗口，释放时会出错
  end;