chengxucanshu.cpp

石油公司网管系统优化系统软件源码,很有价值的.

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

#include <vcl.h>
#pragma hdrstop

#include "ChengXuCanShu.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TTChengXuCanShu *TChengXuCanShu;
//---------------------------------------------------------------------------
__fastcall TTChengXuCanShu::TTChengXuCanShu(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TTChengXuCanShu::QueDingClick(TObject *Sender)
{
    Generation=StrToInt(Generation0->Text);
    popsize=StrToInt(popsize0->Text);
    PCross=StrToFloat(PCross0->Text);
    PMutation=StrToFloat(PMutation0->Text);
    JiShuBanJing=StrToFloat(JiShuBanJing0->Text);
    TFileStream *File=new TFileStream("SuanFa.cfg",fmCreate|fmOpenWrite|fmShareExclusive);
    File->Write(&Generation,sizeof(int));
    File->Write(&popsize,sizeof(int));
    File->Write(&PCross,sizeof(double));
    File->Write(&PMutation,sizeof(double));
    File->Write(&JiShuBanJing,sizeof(double));
    delete File;
    ModalResult = mrOk;
//    Close();
}
//---------------------------------------------------------------------------

void __fastcall TTChengXuCanShu::QuXiaoClick(TObject *Sender)
{
    ModalResult = mrCancel;
//    Close();
}
//---------------------------------------------------------------------------