Текущий архив: 2012.03.04;
Скачать: CL | DM;

Вниз

проверка на nil   Найти похожие ветки 

← →
Scott Storch ©   (2011-11-28 16:10) [0]

почему во втором случае проверка возвращает <> nil. разве Assigned(L) не аналогичен L <> nil.


procedure TForm1.Button1Click(Sender: TObject);
var
 L: TStringList;
begin
 if Assigned(L) then
   ShowMessage("= nil")
 else
   ShowMessage("<> nil");

 if L = nil then
   ShowMessage("= nil")
 else
   ShowMessage("<> nil");
end;


---

← →
RWolf ©   (2011-11-28 16:12) [1]

локальные переменные не инициализируются компилятором.

---

← →
RWolf ©   (2011-11-28 16:12) [2]

и да, в первом if ветки перепутаны.

---

← →
Ega23 ©   (2011-11-28 16:29) [3]

> почему во втором случае проверка возвращает <> nil. разве
> Assigned(L) не аналогичен L <> nil.


Аналогичен. Assigned нужно для процедурных типов, дабы он не "выполнился".
А локальные переменные не инициализируются, да.

---

← →
Anatoly Podgoretsky ©   (2011-11-28 16:36) [4]

> Scott Storch  (28.11.2011 16:10:00)  [0]

В первом IF очевидная мура написана, абсурд

---

← →
Медвежонок Пятачок ©   (2011-11-28 17:03) [5]

почему во втором случае проверка возвращает <> nil.

Потому что проверяемое не равно нил.

---

Страницы: 1 вся ветка

Текущий архив: 2012.03.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.005 c