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

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

Версия 10:39, 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

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