Assigned (my_var) оценивает значение True, где var вычисляет значение Nil (!! ??)

Question

Возможно, это не относится к делу, но я недавно переустановил Delphi XE2.

У меня есть переменная path (типа TPath, карта TG Gogole, хотя я сомневаюсь, что это важно).

Я останавливаю в отладчике и оцениваю path, что оценивается как Nil.

Если я запускаю, я получаю исключение, Read of address 0, которое, как я подозреваю, из-за этого.

Когда я затем оценить Assigned(path) в то же самое время, что она path = Nil эволют к True (тот же результат, когда я остановить на ShowMessage линии - которая выполняется)).

Может кто-нибудь объяснить это мне?

Очистить & rebuild ничего не меняет. Может быть, лучше удалить & переустановить Delphi?

(извинения @mbratch, я использовал var для демонстрации, настоящее имя actully path)

---

[Обновление] Полный пример кода, как это предусмотрено TMS и работать на них (в другой зоне tiem , вот почему я прошу здесь тоже).

This was retested here with:

uses 
    uwebgmapspolylines; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    p: TPath; 
begin 
    p := TPath.Create; 

    if Assigned(p) then 
    ShowMessage('creation OK'); 
end; 

and this proves the correct creation of TPath returns a valid instance.

Когда я останавливаюсь на if Assigned(p) then и оценить p я получаю Nil, но когда я оцениваю Assigned(p) я True.

Когда я наведите курсор на объявление переменной в среде IDE, показывает, что тип объявлен в UWebGMapsPolyLines

---

[Futher обновление] Два голоса, чтобы закрыть? Шутки в сторону? Я думаю, от людей, которые думают, что этого просто не может быть - и все же это !!!

Странная вещь, что @j попробовал и получил p <> Nil. Тем не менее, я попробовал это на втором ПК и до сих пор получаю p = Nil с помощью кода, размещенного здесь, который был предоставлен TMS.

Я признаю, что это кажется странным, но я могу воспроизвести его на двух ПК. P - Nil, но все равно Assigned().

У меня нет кода Assigend() для входа. Кроме того, я немного изменил код до явно if System.Assigned(p) и получил тот же результат. Какие-либо предложения?

Answer 1

Я использовал именно ваш код (с Delphi XE2) и нашел это:

Вы, возможно, запутанным FOwner = nil для p = nil? TPath наследует от TPersistent, поэтому вы можете передать его владельцу (хотя это необязательно). Можно, например, сделать:

p := TPath.Create(self); 

EDIT

Попробуйте это:

var p:TPath 
    begin 
*1 if assigned(p) then ShowMessage('foo'); 
    p:=nil; 
    if assigned(p) then ShowMessage('bar'); 
    p:=TPath.Create; 
    if assigned (p) then ShowMessage('ok'); 
    end; 

Поместите точку останова на *1 - вы должны увидеть в часах или локальной переменной окна:

p  *Inaccessible Value* 

Местный переменный les для неосновных ссылочных типов не инициализируются нулем/ноль - они содержат любые случайные данные, находящиеся в выделенном им пространстве. «Недопустимое значение» означает, что независимо от того, что это за случайные данные, оно не указывает на читаемый адрес памяти в памяти вашей программы.

Шаг к следующей строке -> 'Foo' ->if assigned(p)...

Вы видите сообщение ... почему ?! Assigned проверяет только nil - поскольку локальная переменная не инициализирована, Assigned возвращает true (она не знает, что вы указали ей неинициализированную локальную переменную - она ​​знает только, что вы дали ей что-то не nil). Вот почему это плохая идея освободить неинициализированную локальную переменную.

Шаг к следующей строке -> р: = ноль ->if assigned(p)...

Когда вы перешагнете р: = NIL вы должны видеть, что Недоступный Значение изменения:

p  nil 

И вы не увидите сообщение «bar» (помните, что назначено (p) проверяет только nil). Обратите внимание, что nil голый в часах - нет круглых скобок! Пошаговое до конца вы видите p «s изменение значения снова в часы после того, как он был создан:

p  (nil)  

Как Sertaç объяснено в комментариях, когда объект был создан часы/местные окна показать вам свой член содержимое в круглых скобках. Выше показывает нам, что p не nil (без скобки), не инициализирована (т.е. не недоступного значения), и что он также содержит поле члена (расширение показывает, что он FOwner), который был инициализируется nil и не присвоено значение.

Короткий урок заключается в том, что Assigned действительно полезно только для полей или глобал и не для неопорного подсчета локальных переменного - бывший инициализируется nil при создании объекта, последняя не (когда вы вводите метод).