В Delphi, как я могу установить тип переменной TPanel на ноль?

Привет, у меня есть следующие вещи: 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;

Вопрос в том, как установить для этой переменной значение "ноль"? Выполнение selectedBlock:= Unassigned выдает ошибку.

Спасибо

РЕДАКТИРОВАТЬ: это по-прежнему выдает ошибку: нарушение доступа

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

1 ответ

Решение

Указатели устанавливаются на " ноль " с использованием константы nil:

selectedBlock := nil;

Null это специальное значение, которое относится только к Variant а также OleVariant,

Другие вопросы по тегам