unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

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

#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)
{
        OpenDialog1->DefaultExt="txt";
        SaveDialog1->DefaultExt="txt";
        OpenDialog1->Filter="文本文件(*.txt)|*.txt|所有文件(*.*)|*.*";
        SaveDialog1->Filter="文本文件(*.txt)|*.txt|所有文件(*.*)|*.*";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(OpenDialog1->Execute())
        {
                Memo1->Lines->Clear();
                Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
                StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;
        }

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

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Memo1->Lines->SaveToFile(OpenDialog1->FileName);
        StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        if(SaveDialog1->Execute())
        {
                Memo1->Lines->SaveToFile(SaveDialog1->FileName);
                OpenDialog1->FileName=SaveDialog1->FileName;
                StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
        StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName+"*";
}
//---------------------------------------------------------------------------