ISEMPTY

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

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

ISEMPTY()

В отличие от 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 )

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

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

Функции Delphi

EMPTY