Delphi XE10.2中Form释放后未置为nil，旧技术失效求助

我太懂这种用了好几年的老代码突然翻车的糟心感了！你遇到的核心问题就是全局变量FAboutForm在Form被释放后没有被手动置为nil——这在Delphi里是个经典的“悬空指针”陷阱，咱们一步步捋清楚：

先看你提供的代码片段：

type 
  TAboutForm = class(TForm); 
end; 

function ShowAboutForm: TModalResult; 
function ShowAboutForm2: TModalResult; 

implementation 

var FAboutForm: TAboutForm; 

{$R *.dfm} 

function AboutForm: TAboutForm; 
begin 
  if not Assigned(FAboutForm) then 
    FAboutForm := TAboutForm.Create(Application); 
  Result := FAboutForm; 
end; 

function ShowAboutForm: TModalResult;
// 这里应该是调用AboutForm().ShowModal之类的逻辑
begin
  Result := AboutForm.ShowModal;
end;

问题根源 #

当用户关闭AboutForm时（比如点击窗口右上角的叉号），Delphi默认会把Form对象释放（如果Form的CloseAction是caFree的话），但它不会自动把指向这个Form的全局变量FAboutForm置为nil。这时候FAboutForm里还存着原来的内存地址，调用Assigned(FAboutForm)会返回True，但实际这块内存已经被系统回收了，后续再访问FAboutForm就会触发访问违规或者莫名其妙的错误。

几种靠谱的解决方案 #

1. 在Form的OnClose事件里同步置nil（最稳妥的单例模式修复）

给TAboutForm添加OnClose事件处理，在释放Form的同时把全局变量清空：

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree; // 确保Form被释放
  FAboutForm := nil; // 关键一步：把全局指针置空
end;

这样每次关闭Form，都会同步更新全局变量的状态，下次调用AboutForm()时，Assigned(FAboutForm)会正确返回False，从而重新创建新的Form实例。

2. 增强AboutForm()函数的有效性检查

如果担心Form可能通过其他方式被释放（比如手动调用Free），可以在判断Assigned()的基础上，增加对象存活状态的检查：

function AboutForm: TAboutForm;
begin
  // 不仅检查指针是否赋值，还要确认对象是否真的存活
  if not Assigned(FAboutForm) or (FAboutForm.ClassType <> TAboutForm) then
  begin
    FAboutForm := TAboutForm.Create(Application);
  end;
  Result := FAboutForm;
end;

不过这种方式属于“事后补救”，不如从释放源头处理来得彻底。

3. 放弃全局变量，改用“创建-显示-释放”一条龙（适合模态窗口）

如果你的AboutForm是作为模态窗口使用的，其实完全不需要全局变量，每次调用时临时创建、显示、释放：

function ShowAboutForm: TModalResult;
var
  LocalAboutForm: TAboutForm;
begin
  LocalAboutForm := TAboutForm.Create(Application);
  try
    Result := LocalAboutForm.ShowModal;
  finally
    LocalAboutForm.Free; // 显示完直接释放，不存在悬空指针问题
  end;
end;

这种方式从根源上避免了全局变量带来的隐患，代码更简洁，也更符合Delphi模态窗口的最佳实践。

总结 #

Delphi的对象模型里，对象释放后不会自动清空指向它的指针，这是很多老开发者容易踩的坑。如果要保留单例Form的模式，一定要记得在释放时同步置nil；如果是临时使用的模态窗口，直接用局部变量创建释放的模式更省心。

内容的提问来源于stack exchange，提问作者sdaberle