Почему вылазит AV?

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if Byte(nil^) = 0 then;
  finally
  end;
end;

При запуске без отладчика вылазит AV. Пробовал этот код в Д6 и Д2007 - одинаково. Почему вылазит AV?

Hello, sann-x!
You wrote on 18 мая 2011 г. 9:19:34:

sann-x
Почему вылазит AV?

а что должно быть?

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4

А nil^ - это где??? 8-)

Мимопроходящий
а что должно быть?

Ничего не должно быть.

Может всё-таки byte(nil)=0 ?

Потому что этот адрес запрещен для тебя, а ты пытаешься нарушить (violate)

Ты, наверное, хотел написать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if Byte(nil^) = 0 then;
  except
  end;
end;

А зачем???
Можно просто без try except/finally end;

if obj = nil then // тут сделать что надо

sann-x
procedure TForm1.Button1Click(Sender: TObject); begin try if Byte(nil^) = 0 then; finally end; end; При запуске без отладчика вылазит AV. Пробовал этот код в Д6 и Д2007 - одинаково. Почему вылазит AV?

блок try/finally НЕ гасит исключение

sann-x
procedure TForm1.Button1Click(Sender: TObject); begin try if Byte(nil^) = 0 then; finally end; end; При запуске без отладчика вылазит AV. Пробовал этот код в Д6 и Д2007 - одинаково. Почему вылазит AV?

Значение NIL соответствует нулевому адресу, который в компиляторе Delphi трактуется как защитный.
Соответственно, обращение по нему приводит к AV.