释放 TBitmap 变量时访问冲突——释放后仍分配位图变量？ [复制]

Question

我在 VCL 表单应用程序中有此代码：

implementation

{$R *.dfm}

var
  MyBitmap: TBitmap;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  MyBitmap := TBitmap.Create;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  if Assigned(MyBitmap) then
    MyBitmap.Free;
end;

procedure TFormMain.Button1Click(Sender: TObject);
begin
  if Assigned(MyBitmap) then
    MyBitmap.Free;
end;

当我第二次单击按钮时，我在按钮的单击处理程序中的MyBitmap.Free; 中遇到访问冲突。但是MyBitmap 在第一次单击按钮后不应再分配。那么为什么if Assigned(MyBitmap) then 条件在第一次按钮点击时显然对第二次按钮点击不起作用？

Delphi 10.1 柏林更新 2

Answer 1

Assigned 函数只检查指针是否为Nil。它不会检查它是否指向现有对象。您需要在释放它后将其设置为Nil，以使Assigned 函数按预期工作。 FreeAndNil 执行两条指令。