Функция NilAdvRecord

Назначение

Функция проверяет, заносилось ли что-нибудь в запись после ее очистки (например, процедурой ClearAdvRecord).

Описание

function NilAdvRecord (iField : anyType) : boolean;

Параметры

iField - поле структурного типа системы Атлантис.

Возвращаемое значение

Возвращает true если все поля записи, переданной в качестве параметра, имеют значения по умолчанию.

Пример

interface TheX;

//---------------------------------------------------------
create view

as select
  *

from
  x$files
;

//---------------------------------------------------------
type
ExtendedRecord = record
  c : char;
  i : word;
  j : longint;
  o : longint;
  p : single;
  x : string;
  y : string;
  z : string;
end;

BoolChar = record
  b : boolean;
  c : char;
end;

SuppType = record
  a : word;
  b : BoolChar;
  c : char;
  d : double;
  e : ExtendedRecord;
end;

//---------------------------------------------------------
var s, s1 : SuppType;

//---------------------------------------------------------
screen sc
<<
>>
end;

//---------------------------------------------------------
handleEvent
cmInit:
{
  message(niladvrecord(s)); //  true
  message(niladvrecord(s.e)); //  true
  message(niladvrecord(s.e.x));  //  true
  message(niladvrecord(s1.b.c)); //  true

  s1.b.c := 'a';
  message(niladvrecord(s1.e.z)); //  true
  message(niladvrecord(s1.e));   //  true
  message(niladvrecord(s1.b.c)); //  false
  message(niladvrecord(s1.b));   //  false
  message(niladvrecord(s1));  //  false

  s1 := s;
  message(niladvrecord(s1));  //  true
}
end;
end.

Версия

Атлантис 5.3.07