В 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
,