Проверяет, пуста ли переменная

[nibufep]

Есть ли в delphi аналог функции empty ?

[Utkin]

if x=null then Ваши действия

[Аватар]

Смотря какая переменная

[Utkin]

Смотря какая переменная

Вроде всякая с той лишь разницей, что простые типы инициализируются от балды и в принципе не могут быть пустыми. Однако вариант с null работает и с числами например.

[Stilet]

Есть ли в delphi аналог функции empty ?

VarIsClear() VarIsNull() это как варианты.

[Аватар]

Это все для вариантных типов, для других типов не работает или вообще не совместимо

[Utkin]

Проверка на NULL по-моему работает со всем. Справедливости ради empty в php наверно относится к тому что описал Стилет. Там ведь переменные чистый Variant и есть.

"" (пустая строка)
0 (целое число)
0.0 (дробное число)
"0" (строка)
NULL
FALSE
array() (пустой массив)

В принципе эти условия можно реализовать одноименными функциями empty в отдельном юните. Не знаю только как насчет:

var $var; (переменная объявлена, но не имеет значения в классе)

Но кажется что и это условие выполнимо.

[Stilet]

Проверка на NULL по-моему работает со всем

По-моему тоже, но не проверял.
Как вариант еще есть отдельный механизм для типа OleVariant. Можно его еще попробовать для таких проверок.

[Аватар]

i: Integer;
p: Pointer;
s: String;

  i:=0;
  if i=null then ... //вернет False
  if p=null then ... //ошибка компиляции  
  s:='';
  if s=null then ... //вернет False

а тот empty и 0 и '' съест

[Utkin]

а тот empty и 0 и '' съест

Значит писать отдельным юнитом и подключать в Uses.

if p=null then ... //ошибка компиляции

Empty этого не требует. Я вообще не знаю есть ли там указатели.