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