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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 16: Строка 16:
 
  endif
 
  endif
 
   
 
   
  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

Версия 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

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