проверка на 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 нужно для процедурных типов, дабы он не "выполнился".
А локальные переменные не инициализируются, да.

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

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

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

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

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