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

unit FilterModule;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Filter, NominalToBinary, Discretize, Instances,
BaseModule, Core, ForFilt;

type
TFormFilter = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ComboBox1: TComboBox;
Button1: TButton;
Edit1: TEdit;
ComboBox2: TComboBox;
Edit2: TEdit;
procedure hide_unhide(Sender: TObject);
procedure btnclicked(Sender: TObject);
private
{ Private declarations }
public
data : TDMCore;
constructor Creating( core : TDMCore );
end;

var
FormFilter: TFormFilter;
//data : TDMCore;


implementation

{$R *.dfm}

constructor TFormFilter.Creating( core : TDMCore );
begin
Create(Application);
data := core;
end;

procedure TFormFilter.hide_unhide(Sender: TObject);
begin
if ComboBox1.ItemIndex <> 1 then
begin
Label2.Visible := false;
Edit1.Visible := false;
ComboBox2.Visible := false;
Edit2.Visible := false;
Label3.Visible := false;
Label1.Visible := false;
end
else
begin
Label1.Visible := true;
Label2.Visible := true;
Edit1.Visible := true;
ComboBox2.Visible := true;
Edit2.Visible := true;
Label3.Visible := true;
end;
end;



procedure TFormFilter.btnclicked(Sender: TObject);
var inst : TDMInstances;
filter : TDMFilter;
discr : TDMDiscretize;
begin
inst := data.GetData();
case ComboBox1.ItemIndex of
0 :
begin
filter := TDMNominalToBinary.Create();
inst := filter.useFilter(inst);
end ;
1 :
begin
if Edit1.Text <> '' then
discr := TDMDiscretize.Create(Edit1.Text)
else
discr := TDMDiscretize.Create();
discr.SetInputFormat(inst);
case ComboBox2.ItemIndex of
0 : discr.setFindNumBins(true);
1 : begin
discr.setFindNumBins(false);
discr.m_UseEqualFrequency := true;
discr.m_NumBins := StrToInt(Edit2.Text);
end;
2: begin
discr.setFindNumBins(false);
discr.m_UseEqualFrequency := false;
discr.m_NumBins := StrToInt(Edit2.Text);
end;
end;
inst := discr.useFilter(inst);
end;
2:
begin
// сюда удаление аттрибутов
inst := DellMissAttr(inst);

end;
3:
begin
inst := DellMissVect(inst);
// сюда удаление строчек
end;
4:
begin
inst := FillHole(inst);
// сюда вставка средних
end;



end;
data.SetData(inst);
Close;
end;

end.