unit2.~cpp

来自「Green brightness grasps the bag implemen」· ~CPP 代码 · 共 61 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
TForm2 *form0;
extern bool isnew=false,isnewok=false,isdelete=false;
extern int ok=0;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)
{
//delete form0;
 if (isdelete==true)
 {
  //form0->~TForm2();
  delete form0;
  isnew=true;
  isdelete=false;
  isnewok=false;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
form0->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
ok=1;        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button5Click(TObject *Sender)
{
ok=0;        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
 Memo1->Lines->SaveToFile(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button6Click(TObject *Sender)
{
form0->Memo1->Clear();        
}
//---------------------------------------------------------------------------