Скачиваний:
28
Добавлен:
01.05.2014
Размер:
1.19 Кб
Скачать
unit GKClusterModule;

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

type
TGKClusterModule = class (TBaseModule)
public
function GetName(): String; virtual;
procedure InitView(var core: TDMCore); virtual;
end;

var insti: TDMInstances;

implementation

function TGKClusterModule.GetName(): String;
begin
result:='GKClusterModule';
end;

procedure TGKClusterModule.InitView(var core: TDMCore);
var instit: TDMInstances;
i,j,m,l:integer;
begin
j:=0;
l:=0;
for m:=0 to (core.GetData().numInstances -1 ) do
begin
if (core.GetData().instance(m).hasMissingValue) then
l:=1;
end;
if (l = 1) then
begin
Application.MessageBox('Missing attributes - use filter first','warning');
end;
for i:=0 to (core.GetData().numAttributes - 1) do
begin
if core.getData().attribute(i).isNumeric then
j:=j+1;
end;

if j=core.GetData().numAttributes then
begin
ClForm.Show(core);
//core.UpdateTable(StringGrid1);
end
else
Application.MessageBox('Bad data','warning');
end;
end.
Соседние файлы в папке GK