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

unit ClusterForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Instances,ClusterAlg,Core,Grids;

type
TClForm = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Edit4: TEdit;
procedure Show({inst1: TDMInstances;}var core1: TDMCore);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
public

end;


var
ClForm: TClForm;
inst: TDMInstances;
insti: TDMInstances;
core2: TDMCore;

implementation

procedure TClForm.Show({inst1: TDMInstances;} var core1: TDMCore);
begin
core2:=core1;
inst:=core1.GetData();
ClForm.ShowModal();
end;

{$R *.dfm}

procedure TClForm.Button1Click(Sender: TObject);
var
c,i : integer;
w,e : double;
s1,k : AnsiString;
institog: TDMInstances;

i1 : integer;

begin
c:=StrToInt(Edit1.text);
e:=StrToFloat(Edit2.text);
w:=StrToFloat(Edit3.text);
RunGKAlg(inst,c,w,e,k,institog);
core2.SetData(institog);
Edit4.text:=k;
end;

procedure TClForm.Button2Click(Sender: TObject);
begin
Edit1.Text:='0';
Edit2.Text:='0';
Edit3.Text:='0';
Close;

end;

end.