unit4.~cpp

lp求解的单纯形算法

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TResultForm *ResultForm;
//---------------------------------------------------------------------------
__fastcall TResultForm::TResultForm(TComponent* Owner)
        : TForm(Owner)
{
     MemoRe->Text=="";
}
//---------------------------------------------------------------------------
void __fastcall TResultForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     Action=caFree;
     MainForm->HaveResult=false;         
}
//---------------------------------------------------------------------------