c12_1f.cpp

C++Builder编程实例详解,用具体的例子阐明C++的一些基本操作,所有程序均在BC++上编译过.可靠,建议下载

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "C12_1F.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NewClick(TObject *Sender)
{
    RichEdit1->Lines->Clear();	
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenClick(TObject *Sender)
{
    if(!CheckFileSave())
    { // 放弃打开文件操作
        return;
    }

    if(OpenDialog1->Execute())
    { // 打开文件，修改标志位
        RichEdit1->ReadOnly = OpenDialog1->Options.Contains(ofReadOnly);
        RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
        RichEdit1->SetFocus();
        RichEdit1->Modified = False;
        FileName = OpenDialog1->FileName; // 保存文件名
        FilterIndex = OpenDialog1->FilterIndex; // 保存文件类型索引
    }

}
//---------------------------------------------------------------------------bool TForm1::CheckFileSave()
bool TForm1::CheckFileSave()
{
    if(RichEdit1->Modified)
    { // 需要保存文本
        switch(MessageBox(Form1->Handle, "是否保存修改？", "提示...",
                MB_YESNOCANCEL | MB_ICONQUESTION))
        {
            case ID_YES: // 选择保存文件
                SaveDialog1->FileName = FileName; // 设置文件名
                SaveDialog1->FilterIndex = FilterIndex; // 设置文件类型
                if(SaveDialog1->Execute()); // 打开“保存”对话框保存文件
                {                           // 并判断保存情况
                    RichEdit1->Modified = false;
                }
                break;
            case ID_CANCEL: // 取消操作
                return(false); // 放弃操作
        }
    }
    return(true); // 继续
}

//---------------------------------------------------------------------------
void __fastcall TForm1::SaveClick(TObject *Sender)
{
    SaveDialog1->FileName = FileName; // 设置文件名
    SaveDialog1->FilterIndex = FilterIndex; // 设置文件类型
    if(SaveDialog1->Execute()) // 打开“保存”对话框保存文件
    { // 用户选择“保存”按钮。
        if(SaveDialog1->FilterIndex == 1)
        {
            RichEdit1->PlainText = false;
            FileName = SaveDialog1->FileName + ".rtf";
        }
        else if(SaveDialog1->FilterIndex == 2)
        {
            RichEdit1->PlainText = true;
            FileName = SaveDialog1->FileName + ".txt";
        }
        else
        {
            RichEdit1->PlainText = true;
            FileName = SaveDialog1->FileName;
        }
        RichEdit1->Lines->SaveToFile(FileName);
        RichEdit1->Modified = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    FileName = "Untitled";
}
//---------------------------------------------------------------------------