MetaProgramm.FindModuleI(Name : String) : Integer
Получить номер модуля по его имени

Метод IndexOfModule возвращает номер модуля по его имени. Если модуль не найден, возвращает -1.

Procedure OnCreate;
Var
  n : Integer;
Begin
  n := Meta.IndexOfModule(Meta.v.UsersTableName);
  Warning('Первичный ключ таблицы = ' + Meta.Module(n).PK.Name);
End;

© RTIT