ISEMPTY — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 17: Строка 17:
 
   
 
   
 
  if [[ValType]]( a ) = 'A'
 
  if [[ValType]]( a ) = 'A'
   if Empty( a[1] ) and len( a ) = 1
+
   if [[Empty]]( a[1] ) and len( a ) = 1
 
     result := true
 
     result := true
 
     return
 
     return

Версия 10:38, 18 ноября 2016

IsEmpty - это функция

ISEMPTY()

Возвращает true, если результат выражения равен nil, "", 0, { { 0 } }

В отличие от Empty, возвращает true, если результат выражения равен { { 0 } }

Текст программы

parameters a

if Empty( a )
  result := true
  return
endif

if ValType( a ) = 'A'
  if Empty( a[1] ) and len( a ) = 1
    result := true
    return
  endif

  if ValType( a[1] ) = 'A'
    if Empty( a[1,1] ) and len( a[1] ) = 1
      result := true
      return
    endif
  endif
endif

result := Empty( a )

Смотрите также

Функция EMPTY

Функции Delphi

Полезные функции