unitcongfig.cpp

来自「通过oci实现的oracle查询分析器功能和可以 尤其对BLOB字段的度曲」· C++ 代码 · 共 46 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unitcongfig.h"
#include "Unitmain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormcongfig *Formcongfig;
//---------------------------------------------------------------------------
__fastcall TFormcongfig::TFormcongfig(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormcongfig::FormShow(TObject *Sender)
{
  AnsiString IniFileName=ExtractFilePath(ParamStr(0))+"paraini.ini";
  if (!FileExists(IniFileName))
  {
    Formmain->Memo1->Lines->SaveToFile(IniFileName);
  }

  Memo1->Lines->LoadFromFile(IniFileName);


}
//---------------------------------------------------------------------------

void __fastcall TFormcongfig::BitBtn2Click(TObject *Sender)
{
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormcongfig::BitBtn1Click(TObject *Sender)
{
  AnsiString IniFileName=ExtractFilePath(ParamStr(0))+"paraini.ini";
  Memo1->Lines->SaveToFile(IniFileName);
  Close();
}
//---------------------------------------------------------------------------