Файл с реализацией табличного врапера twX$FILES.vip

#include IX$FILES.vih

#component ""

Interface twX$FILES;
  create view as select * from X$FILES;

  property IX$FILES.XF$CODE			: Word absolute X$FILES.XF$CODE read write;
  property IX$FILES.XF$NAME			: String[20] absolute X$FILES.XF$NAME read write;
  property IX$FILES.XF$OWNERNAME		 : String[8] absolute X$FILES.XF$OWNERNAME read write;
  property IX$FILES.XF$TITLE			 : String[40] absolute X$FILES.XF$TITLE read write;
  property IX$FILES.XF$LOC			 : String[65] absolute X$FILES.XF$LOC read write;
  property IX$FILES.XF$LOC2			: String[65] absolute X$FILES.XF$LOC2 read write;
  property IX$FILES.XF$FLAGS			 : Word absolute X$FILES.XF$FLAGS read write;
  property IX$FILES.XF$FORMAT			: Byte absolute X$FILES.XF$FORMAT read write;
  property IX$FILES.XF$ATTR			: Word absolute X$FILES.XF$ATTR read write;
  property IX$FILES.XF$PAGESIZE		: Word absolute X$FILES.XF$PAGESIZE read write;
  property IX$FILES.XF$RECORDFIXED	 : Word absolute X$FILES.XF$RECORDFIXED read write;
  property IX$FILES.XF$RECORDSIZE		: Word absolute X$FILES.XF$RECORDSIZE read write;
  property IX$FILES.XF$CHECKSUM		: LongInt absolute X$FILES.XF$CHECKSUM read write;
  property IX$FILES.XF$PRIMARYKEYNO	: Byte absolute X$FILES.XF$PRIMARYKEYNO read write;
  property IX$FILES.XF$COMPONENT		 : String[20] absolute X$FILES.XF$COMPONENT read write;
  property IX$FILES.XF$FLAGS2			: LongInt absolute X$FILES.XF$FLAGS2 read write;

  function IModify.doInsert : Word; { Result := tsOk; }
  function IModify.doUpdate : Word; { Result := tsOk; }
  function IModify.doDelete : Word; { Result := tsOk; }
  Implementation IModify.doFlush abstract;

  Implementation IManualIndex.IndexActivated abstract;
  Implementation IManualIndex.IndexDeactivated abstract;
  Implementation IManualIndex.FilterChanged abstract;
  Implementation IManualIndex.Find abstract;
  Implementation IManualIndex.Move abstract;
  Implementation IManualIndex.GetAddr abstract;
  Implementation IManualIndex.GetDirect abstract;

  function IManualIndex.Count : LongInt; { Result := RecordsInTable(#X$FILES); }

  index IX$FILES.FILEBYCODE auto;
  index IX$FILES.FILEBYNAME auto;
  index IX$FILES.FILEBYTITLE auto;
  index IX$FILES.FILEBYLOC auto;
  index IX$FILES.FILEBYLOC2 auto;
  index IX$FILES.FILEBYCOMPONENT auto;
  index IX$FILES.FILEBYCOMPBYNAME auto;
  index IX$FILES.FILEBYCOMPBYTITLE auto;
end.