Курсовой проект групп 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.