Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовой проект групп 3341 и 3382 / ExpertModule / ExpertModule
.pas 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.
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.