unit2.~cpp

lp求解的单纯形算法

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TChildForm *ChildForm;

//----------------新建空白工程--------------------------------------------------
__fastcall TChildForm::TChildForm(TComponent* Owner)
        : TForm(Owner)
{
   Memo1->Text="";
   Result=NULL;
}


//-------------------规定关闭子窗体时的行为-------------------------------------

void __fastcall TChildForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
     Action=caFree; //关闭并释放内存
     MainForm->ChildCount-=1;//子窗体数减1

}

//---------------------关闭字窗体的操作-----------------------------------------
void __fastcall TChildForm::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(Memo1->Modified)//文档被修改
      {
        int Choose=MessageDlg("是否保存对工程的修改?",mtConfirmation,
            TMsgDlgButtons()<<mbYes<<mbNo<<mbAbort,0);
        if(Choose==mrYes)//选择是
          {
            MainForm->Save->Click();
            if(Memo1->Modified)
              {
                CanClose=false;
              }
          }
        else if(Choose==mrAbort) //选择取消
          {
                CanClose =false;
          }
        //选择否
      }
}

//------------------撤消操作----------------------------------------------------
void __fastcall TChildForm::UndoClick(TObject *Sender)
{
     Memo1->Undo();
}

//-------------------复制操作---------------------------------------------------

void __fastcall TChildForm::CpoyClick(TObject *Sender)
{
     Memo1->CopyToClipboard();
}

//-------------------剪切操作---------------------------------------------------
void __fastcall TChildForm::CutClick(TObject *Sender)
{
     Memo1->CutToClipboard();
}

//-------------------粘贴操作---------------------------------------------------
void __fastcall TChildForm::PasteClick(TObject *Sender)
{
     Memo1->PasteFromClipboard();
}

//------------------全选--------------------------------------------------------
void __fastcall TChildForm::SAllClick(TObject *Sender)
{
     Memo1->SelectAll();
}



//屏蔽非法符号-------------------------------------------------------------

void __fastcall TChildForm::Memo1KeyPress(TObject *Sender, char &Key)
{
    if(!((Key>='a'&&Key<='z')||(Key>='A'&&Key<='Z')||
          Key=='+'||Key=='-'||Key=='.'||
         (Key>='0'&&Key<='9')||Key==8||Key==13||Key==' '||
          Key=='='||Key=='>'||Key=='<'))
    Key=0;
    else{
           TPoint pos;
           pos=Memo1->CaretPos;
           MainForm->StatusBar1->Panels->Items[2]->Text=IntToStr(pos.y+1);
           MainForm->StatusBar1->Panels->Items[4]->Text=IntToStr(pos.x+1);
        }
}
//---------------------------------------------------------------------------

void __fastcall TChildForm::Memo1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    TPoint pos;
    pos=Memo1->CaretPos;
    MainForm->StatusBar1->Panels->Items[2]->Text=IntToStr(pos.y+1);
    MainForm->StatusBar1->Panels->Items[4]->Text=IntToStr(pos.x+1);
}
//---------------------------------------------------------------------------

void __fastcall TChildForm::RunClick(TObject *Sender)
{
    MainForm->RunClick(Sender);    
}
//---------------------------------------------------------------------------