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

unit BaesModul;

interface
uses Core,baes1,BaseModule,Instances,Forms,Windows,SysUtils;

type

TBaesModule = class(TBaseModule)

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

end;

implementation

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

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

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

// Application.CreateForm(TfmExample, fmExample);

fmExample.CallForm(core.GetData);

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

end;

end.