unit1.cpp

来自「本程序是基于C++ builder平台编的」· C++ 代码 · 共 67 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
bsave->Enabled=false; //将“SAVE”键设置为无效
edit->Lines->Clear(); //清除EDIT中的内容
edit->Enabled=false; //将EDIT设为无效
}
//---------------------------------------------------------------------------

void __fastcall TForm1::bopenClick(TObject *Sender)
{
if(edit->Modified)//若EDIT中的文本已被改变，但未保存，则弹出对话框，询问是否保存
{Application->MessageBox("文件已经修改，是否保存？","打开",MB_YESNO|MB_ICONQUESTION);
if(IDYES==Application->MessageBox("文件已经修改，是否保存？","打开",MB_YESNO|MB_ICONQUESTION))
edit->Lines->SaveToFile(savedialog->FileName);
}
edit->Enabled=true;
if(opendialog->Execute())
        edit->Lines->LoadFromFile(opendialog->FileName);
        edit->Modified=false;
        bsave->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bsaveClick(TObject *Sender)
{
if(savedialog->Execute())
        edit->Lines->SaveToFile(savedialog->FileName);
        edit->Modified=false;
        bsave->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::editChange(TObject *Sender)
{
bsave->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::bexitClick(TObject *Sender)
{
if(edit->Modified)//若EDIT中的文本已被改变，但未保存，则弹出对话框，询问是否保存
{
Application->MessageBox("文件已经修改，是否保存？","打开",
MB_YESNO|MB_ICONQUESTION);
if(IDYES== Application->MessageBox("文件已经修改,是否保存？",
"打开",MB_YESNO|MB_ICONQUESTION))
edit->Lines->SaveToFile(savedialog->FileName);
}

Close();
}
//---------------------------------------------------------------------------