result.pas

线性规划CAI应用程序及原代码

unit result;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,lpmain,lpdchxing;

type
  Tresultform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  resultform: Tresultform;
  alabel:array[1..50]of Tlabel;
  aedit:array[1..50]of Tedit;
  j_num,add_label_num:integer;
implementation

{$R *.DFM}

procedure Tresultform.FormShow(Sender: TObject);
var j,i,k,l,i_num:integer;
    xishu:string;
    be_in,be_add:boolean;
begin
if answer then
  begin
  edit1.Text:=objtype;
  if biaonum=1 then
  begin
  if objtype='Min'then
  edit2.text:=floattostr(-1*strtofloat(dchxingform.objedit1.text))
  else
  edit2.text:=dchxingform.objedit1.text;
  end
  else
  begin
  if objtype='Min'then
  edit2.text:=floattostr(-1*strtofloat(dchxingform.objedit2.text))
  else
  edit2.text:=dchxingform.objedit2.text;
  end;
  j:=1;
  i_num:=0;
  for i:=1 to afterleashnum do    {生成结果变量}
      begin
          if basevar[i]<=afteraddnum then
              begin
                alabel[j]:=Tlabel.Create(self);
                alabel[j].Parent:=resultform;
                alabel[j].left:=label1.Left;
                alabel[j].top:=label3.top+j*25;
                be_in:=false;be_add:=true;
                for k:=1 to afteraddnum do
                    begin
                        if basevar[i]=add_num[k] then
                           begin
                           i_num:=old_num[(k+1) div 2];
                           be_in:=true;
                           break;
                           end
                        else i_num:=basevar[i];
                    end;
                for k:=1 to afteraddnum div 2 do
                    if basevar[i]=add_num[2*k-1] then be_add :=false;
                alabel[j].caption:='X'+inttostr(i_num)+'=';
                aedit[j]:=Tedit.Create(self);
                aedit[j].Parent:=resultform;
                aedit[j].Left :=alabel[j].Left+75;
                aedit[j].top:=alabel[j].Top ;
                if be_in and be_add then
                aedit[j].Text :=floattostr(-1*strtofloat(dchxingform.cxbGrid2.Cells [2,i-1]))
                else
                aedit[j].text:=dchxingform.cxbGrid2.Cells [2,i-1];
                add_label_num:=j;
                j:=j+1;
              end
      end;
  j_num:=j;
  if j=1 then showmessage('该问题的解无法实现！！！');

  end;

end;

procedure Tresultform.Button1Click(Sender: TObject);
var i:integer;
begin
     if j_num>1 then
     for i:=1 to add_label_num do
     begin
     alabel[i].free;
     aedit[i].free;
     end;
     j_num:=1;
     resultform.hide;
{     dchxingform.show; }
end;
procedure Tresultform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Button1Click(sender);
end;

end.