Курсовой проект групп 3341 и 3382 / ExpertModule / ExpertModule

unit ExpertModule;

interface
    uses Core,Modul,BaseModule,RuleItem,Instances,Forms,Windows,SysUtils;

    type

    TExpertModule = class(TBaseModule)

    public
      function GetName(): String;  virtual;
      procedure InitView(const core: TDMCore);   virtual;

    end;

implementation
   uses MainForm;

   function TExpertModule.GetName(): String;  
   begin
   {body}
   result:='ExpertModule';
   end;

   procedure TExpertModule.InitView(const core: TDMCore);
   var  rule:TDMRuleItem;
        inst:TDMInstances;
   begin
    {Открытие формы и передача ей параметров}
       try

     //  inst:=TDMInstances.Create(core.GetData);

          Application.CreateForm(TExpertMod, ExpertMod);
          form1.enabled:=false;

          ExpertMod.Show(core.GetRules,core.GetData);

          except
              on EExternal do Application.MessageBox('В начале должен быть подгружен файл','Информация');
          else Application.MessageBox('Произошла ошибка при открытии вормы','Ошибка');
          ExpertMod.Close;
        end;

   end;

end.