MetaProgramm.ModulesCount : Integer
Кол-во модулей в программе

Метод ModulesCount возвращает кол-во модулей в программе.

Procedure OnCreate;
Var
  i : Integer;
Begin
  For i:=0 to Meta.ModulesCount - 1 Do
    Warning(ToStr(i) + '. ' + Meta.Module(i).Name);
End;

© RTIT