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

unit MMyEM;

interface
uses
  Core,BaseModule,Instances,Forms,Windows,SysUtils,TypeEM,FMyEM;
type
 MEM=class (Tbasemodule)
  function getname(): String;virtual;
  procedure initview(var X:TDMcore);virtual;
  end;
implementation

   function MEM.getname():string;
    begin
     getname:='MyEM';
    end;

   procedure MEM.initview(var X:TDMcore);
    begin
      FEM.init(X);
    end;
end.