在Delphi中我如何将TPanel变量类型设置为null？

Question

Helo，我有以下内容：selectedPanel应该获取单击的面板对象，如果单击该表单，selectedPanel应为“null”，nada，empty等：）

var
     selectedBlock: Tpanel; <== fixed typo

...

procedure TForm1.stubPanelMouseDown(Sender: TObject...
begin

    ...

    Panel:= Sender as TPanel;

    if (*selectedBlock is not null*) then
    begin
            // ie, store the current panel
            selectedBlock:= Panel;
    end
    else
    begin
            // empty the selection
            *selectedBlock:= null*;
    end;

所以问题是：我如何将该变量设置为“null”？执行selectedBlock：= Unassigned会引发错误。

由于

编辑：这仍然会引发错误：访问冲突

if (selectedBlock=nil) then <= fixed and works
  begin
    selectedBlock:= Panel;
  end
  else
  begin
     selectedBlock:= nil;
 end;

Answer 1

使用 nil 常量将指针设置为“null”：

selectedBlock := nil;

Null是一个特殊值，仅适用于Variant和OleVariant。