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

unit J48Form;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
BaseModule,
Dialogs, StdCtrls;


type

BM = ^TBaseModule;

TTJ48Form = class(TForm)
Label1: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Button1: TButton;
CheckBox1: TCheckBox;
CheckBox3: TCheckBox;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
m_Module: TBaseModule;
public
{ Public declarations }
procedure setModule(var m: TBaseModule);
end;

{var
J48Form: TJ48Form;}


implementation

{$R *.dfm}

uses
J48Module;

procedure TTJ48Form.setModule(var m: TBaseModule);
begin
m_Module := (m as TJ48Module);
end;

procedure TTJ48Form.Button1Click(Sender: TObject);
var
m: TJ48Module;
begin
m := m_Module as TJ48Module;
m.build;
end;

end.