Корректна ли функция?

[Kronos913]

Function PanelCreateVisible(Panel1:TPanel):boolean;
begin
  If Panel1<>nil then begin
    Result:=Panel1.Visible;
  end else result:=false;
end;

Во многих местах программы нужно "спросить" видимость панели, но при этом возможен случай когда она вообще не создана еще.

Для этого сделал функцию, которая сначала проверяет наличие панели вообще, а потом уже ее видимость.

Корректен ли код? Могут ли быть "подводные камни"?

Самостоятельные тесты проблем не обнаружили

[northener]

Сообщение от Kronos913

Корректен ли код?

Не корректен в общем случае.

[Arigato]

Сообщение от Kronos913

Могут ли быть "подводные камни"?

Panel1 не обязана быть nil, что не гарантирует наличие самого объекта.

[Kronos913]

Как тогда лучше сделать? Так лучше?

Function PanelCreateVisible(Panel1:TPanel):boolean;
begin
  try
    Result:=Panel1.Visible;
  except
    result:=false;
  end;
end;

[Kronos913]

Сообщение от Arigato

Panel1 не обязана быть nil, что не гарантирует наличие самого объекта.

А кроме nil, какие еще могут быть варианты у отсутствующей панели?

[Vapaamies]

Сообщение от Kronos913

Корректен ли код? Могут ли быть "подводные камни"?

Корректен. Подводный камень:

Сообщение от Arigato

Panel1 не обязана быть nil, что не гарантирует наличие самого объекта.

На практике решается размещением переменных в теле класса, вызовом FreeAndNil для их очистки, а также использованием соответствующих контейнеров (TObjectList вместо массива, например), если нужно.

[Kronos913]

Если я в программе эту панель не удаляю, а только создаю - то могут быть случае отличающиеся от nil ?

Просто панель не создаётся сразу, чтобы не перегружать загрузку программы. Но при первом обращении к этому разделу программы, панель создаётся и больше не удаляется. Отсюда вопрос: могут ли в таком случае возникнуть проблемы с тем что значение <>nil а панели нет?

[Vapaamies]

Сообщение от Kronos913

Если я в программе эту панель не удаляю, а только создаю - то могут быть случае отличающиеся от nil ?

Не должны.

Сообщение от Kronos913

Просто панель не создаётся сразу, чтобы не перегружать загрузку программы.

А не лучше просто убрать форму из автозагрузки? Давным-давно, когда вопросов по Delphi на форумах было много, я частенько советовал убрать описание объявления переменной формы из ее модуля, чтобы компилятор заругался. Кто не поймет, что делать дальше, — не программист.

В нормальной программе создаваться автоматически должна только главная форма, а всякие вспомогательные, типа диалогов, — по мере надобности. Если нет каких-то других соображений, конечно. Они есть?

[Arigato]

Сообщение от Kronos913

могут ли в таком случае возникнуть проблемы с тем что значение <>nil а панели нет?

Запросто:

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  if Panel = nil
    then ShowMessage('nil')
    else ShowMessage('not nil');
end;

[Vapaamies]

Сообщение от Arigato

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanel;
begin
  if Panel = nil
    then ShowMessage('nil')
    else ShowMessage('not nil');
end;

Так это же, по сути, обращение к неинициализированному указателю. Его исправить надо, а не обходить псевдопроверками. Конкретно на этом коде сам Delphi должен выдать предупреждение при компиляции. У меня выдал:

[Warning] Main.pas(614): Variable 'Panel' might not have been initialized

Незачет.