Курсовой проект групп 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.