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

unit dmm;

interface
uses
Classes,
SysUtils,
algorithm,
instances,
SerializableObject;
const
MAX_MODELS_COUNT = 500;
var
dmmModels : array [0..MAX_MODELS_COUNT] of TDMAlgorithm;
numModels : integer;
inst : TDMInstances;
//выборка для алгоритмов ассоциации
assInst : TDMInstances;
//окна
menuWindow : boolean;
assWindow : boolean;
dataWindow : boolean;
clusterWindow : boolean;
classifWindow : boolean;
applyWindow : boolean;

applyInst : TDMInstances;

function addModel(const algorithm: TDMAlgorithm): integer;
implementation
function addModel(const algorithm: TDMAlgorithm): integer;
begin
if numModels < MAX_MODELS_COUNT then
begin
dmmModels[numModels] := algorithm;
Result := numModels;
inc(numModels);
end
else
raise Exception.Create('Слишком много моделей');
end;

initialization
numModels :=0;
inst := nil;

assWindow := true;
dataWindow := true;
clusterWindow := true;
classifWindow := true;
applyWindow := true;
menuWindow := true;

end.