MetaModule.Type : Integer
Тип модуля

Свойство Type содержит тип модуля.

Procedure OnCreate;
Var
  i : Integer;          
  m : MetaModule;
  TypeDescr : Array Of String;
Begin                         
  TypeDescr := [ '', 'Список', 'Главное меню', 'Роль', 'Таблица', 'Вьюха', 'Форма', 'Печатная форма', 
    'Программный модуль', 'Хранимая процедура', 'Автовьюха' ];
  
  For i:=0 to Meta.ModulesCount - 1 Do
  Begin
    m := Meta.Module(i);
    Warning(ToStr(i) + '. ' + m.Name + ' ' + TypeDescr[m.Type]);
  End;
End;

Смотри перечисления MetaProgramm.

© RTIT