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

[Arigato]

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

Незачет.

Тем ни менее такое возможно. А еще можно удалить объект без обнуления указателя. Тут даже никаких предупреждений не будет.

Ну или вот так:

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

Скажете, извращение какое-то? А вы посмотрите в других темах код ТС! Так что не исключено любое извращение

[Vapaamies]

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

А еще можно удалить объект без обнуления указателя. Тут даже никаких предупреждений не будет.

Я и написал:

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

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

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

А вы посмотрите в других темах код ТС! Так что не исключено любое извращение

Как раз-таки исключено. Он задает вопросы по организации кода, алгоритмам и прочему, а не об утечках или других технических ошибках, решаемых отладчиком или даже чтением сообщений компилятора. Иначе я бы первый написал ему: «отладчик у тебя перед глазами, не у меня». Повода пока не было.

Вообще, так и хочется сказать: вы тут самоутверждаетесь, а я пишу по делу. Но, так и быть, не буду. Пусть ТС скажет.

[Arigato]

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

Как раз-таки исключено.

Защита от дурака, она делается даже на те случаи, которые вроде бы как попадают под понятие "исключено". Но на каждое "исключено" найдется свой "дурак"

[Vapaamies]

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

Защита от дурака, она делается даже на те случаи, которые вроде бы как попадают под понятие "исключено".

Никакая это не защита от дурака, а генератор неподдерживаемого говнокода.

Кстати, функция-то не нужна. Читая тему, задней мыслью думал, что же тут не так? В Питере дело к белым ночам, у меня традиционная бессонница, а сегодня впервые за несколько дней наконец-то выспался.

begin
  ...
  if (Panel1 <> nil) and Panel1.Visible then
    ...
end;

По умолчанию {$BOOLEVAL OFF}, то есть при ложности первого операнда and второй вычисляться не будет. С точки зрения ассемблера и исполнения процессором данный код также предельно эффективен.

Бертран Мейер считает, что подобные фишки должны быть заданы в языке явно, поэтому в языке Эйфель есть операции and then и or else:

do
  ...
  if Panel /= Void and then Panel1.Visible then
    ...
end

Ну, а нам в Delphi приходится полагаться на механизм умолчаний.