C++Builder 5.0编程指南(2)

木子 · 2001年第60期

【类】
　　　　这种类型是根据进行的操作和需要的数据结构定义的，是完成特定任务的数据和函数的集合。用class关键字来声明：
　　　　class 类名 [: 基类] {
　　　　 声明部分
　　　　}[变量名];
　　 声明部分可以是成员变量和成员函数，看一个最简单的类声明例子：
　　 class TMyClass {
　　 String Ddata;
　　 };
　　　　看上去很象struct和union的声明，但TMyClass中的Fdata却是无法访问的，在类中默认成员是私有的（private），类以外是“看”不到的。扩展一下TmyClass：
　　 class TMyClass {
　　 String Fdata;
　　 public: //表明声明的函数对类以外的代码是可见的
　　 void setdata（String value）; //声明写入变量Fdata的函数
　　 String getdata（）; //声明获得Fdata值的函数
　　 }*MyClass; //声明为类的指针
　　　　
　　　　
　　　　TMyClass::setdata（String value）
　　　　{
　　　　 Fdata = value;
　　　　}
　　　　
　　　　TMyClass::getdata（）
　　　　{
　　 return Fdata;
　　　　}
　　　　现在尽管无法访问TMyClass的Fdata，我们可以通过它的成员函数setdata和getdata修改和获得Fdata的值，这种处理就是封装。
　　
　　 MyClass = new TMyClass;
　　　　MyClass.setdata（"Hello World!"）;
　　 ShowMessage（MyClass.getdata（））;
　　 delete MyClass;
　　　　这样的例子实际意义并不大，只是用来帮助你理解类。下面我们学得更多一些：
　　　　
　　 class TMyClass {
　　 String Fdata;
　　 public: //表明一下声明的函数对类以外的代码是可见的
　　 void setdata（String value）{Fdata = value;} //setdata作为一个内联函数
　　 String getdata（）{return Fdata;} //getdata也一个内联函数
　　 }*MyClass;
　　
　　　　这样TMyClass中的setdata和getdata功能和上一个例子一样，但是有更多的好处，比调用一般的函数效率更高。我们还可以做得更好些：
　　　　
　　　　class TMyClass {
　　　　 private:
　　　　 String Fdata;
　　　　
　　　　 void setdata（String value）{Fdata = value;}
　　　　 public:
　　　　 __property String data = {read = Fdata， write = setdata}; //建立一个属性
　　　　}*MyClass;
　　　　……
　　　　String vStr = MyClass->data; //修改TMyClass的data属性，即Fdata的值
　　　　……
　　　　MyClass->data = "Hello World!"; //获得TMyClass的data属性值，调用由write字句指定的setdata函数
　　　　……
　　　　
　　　　类和结构一样也是有继承性，类还有个重要的特点就是具有构造函数和析构函数。在类用new关键字分配内存时，编译器自动执行类的构造函数，用delete关键字释放类时执行析构函数。如果类没有指定，编译器将提供一个隐藏的默认构造函数或析构函数，构造函数和析构函数的简单例子：
　　　　
　　　　enum Tsex {male， female};
　　　　struct Tpersonrec {
　　　　 String name;
　　　　 int age;
　　　　 Tsex sex;
　　　　}; //建立记录结构
　　　　class Tperson {
　　　　 DynamicArray persons; //声明一个Tperson类型的动态数组
　　　　 int Count;
　　　　 public:
　　　　 void NewPerson（String name， int age， Tsex sex）; //添加新的人员
　　　　 Tperson（）; //Tperson类的构造函数
　　　　 ~Tperson（）; //Tperson类的析构函数
　　　　}*person;
　　
　　 void Tperson::NewPerson（String name， int age， Tsex sex）
　　 {
　　 int I = Count;
　　 persons.Length = ++Count; //动态数组长度加1
　　 persons[I].age = age;
　　 persons[I].sex = sex;
　　 persons[I].name = name;
　　 }
　　
　　 Tperson::Tperson（） {Count = 0;} //Tperson类的构造函数
　　 　　Tperson::~Tperson（） {persons.Length = 0;} //Tperson类的析构函数，让动态数量为0释放内存
　　
　　 person = new Tperson; //编译器会调用构造函数
　　 person->NewPerson（"小丽"， 21， female）; //添加一条记录
　　 ……
　　 delete person; //编译器会调用析构函数
　　
　　　　构造函数和析构函数是不允许指定函数返回类型的，名称必须与类名一样（构造函数）或者类名加上~（析构函数）。
　　　　C/C++就介绍到这里，C/C++语言是非常博大的，前面是一些比较基础内容，在后面实际应用的例子中再进一步介绍。
　　#1 八、VCL组件的应用
　　 1． 什么是VCL组件?
　　 VCL（Visual Component Library）可视构件库。BCB的VCL包含了很丰富的组件，面向对象编程就是使用这些组件来架构应用程序。VCL组件分为可视构件，即在程序运行时用户能够看到的组件，如按钮、标签等，还有不可见组件，它只在后台实现某种特定任务，如定时器、数据库组件等。每个组件VCL一般都有属性、事件和方法，
　　 2． 什么是属性、事件和方法?
　　 属性（Property）就是组件的特征，如窗口的大小、位置、背景颜色等等。通常借助修改组件的属性来调整组件，例如Form1->Caption = "Hello World!"; 修改窗口的标题属性（Caption）来修改窗口的标题。
　　　　事件（Events）是由用户的操作或者代码的执行引起的。如单击一个按钮的时候引发按钮的单击事件，鼠标在窗口上移动引发窗口的鼠标移动事件等，我们可以给这些事件编写处理代码，这些代码会被对应的事件驱动。
　　 　方法就是类的成员函数，可以执行一定的操作。如Form1->Close（）;可以关闭窗口，Close（）是Tform类的一个成员函数。
　　 3． 基本组件介绍
　　　　（1）窗口
　　　　窗口也是组件，一个工程可以有很多个窗口，但是只有一个主窗口，关闭主窗口将会结束整个程序。
　　　　（（图1））

　　　　#pragma hdrstop
　　　　
　　　　#include "MainUnit.h"
　　　　//---------------------------------------------------------------------------
　　　　#pragma package（smart_init）
　　　　#pragma resource "*.dfm"
　　　　TMainForm *MainForm;
　　　　/*从这里开始输入代码*/
　　　　bool Modified; //判断文本是否进行过修改
　　　　String FileName = ""; //记录打开文件名
　　　　/*结束*/
　　　　//---------------------------------------------------------------------------
　　　　__fastcall TMainForm::TMainForm（Tcomponent* Owner）
　　　　 : Tform（Owner）
　　　　{
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//在设计窗口中双击ActionList图标，然后在Actions列表中双击NewAction，进入这里
　　　　void __fastcall TMainForm::NewActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 CloseActionExecute（NULL）; //调用关闭文件的功能
　　　　 if（!Modified）Memo->Show（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击CloseAction，进入这里
　　　　void __fastcall TMainForm::CloseActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（FileName != ""）
　　　　 {
　　　　 if（Modified）
　　　　 switch （Application->MessageBox（"文件已经修改是否进行保存?"，
　　　　 "木子软件"， MB_YESNOCANCEL + MB_ICONINFORMATION）） //显示询问对话框
　　　　 {
　　　　 case ID_YES : SaveActionExecute（NULL）; //用户选择了YES按钮调用保存功能
　　　　 break;
　　　　 case ID_NO : Modified = false;
　　　　 break;
　　　　 case ID_CANCEL : return;
　　　　 }
　　　　 }
　　　　 if（Modified） return; //Modified不为false表明文本不能被关闭
　　　　 FileName = "";
　　　　 Memo->Hide（）; //隐藏编辑框
　　　　 Memo->Clear（）; //清空文本输入框，可能会让Modified变成True
　　　　 Modified = false;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击SaveAction，进入这里
　　　　void __fastcall TMainForm::SaveActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（FileName == ""）
　　　　 {
　　　　 SaveAsActionExecute（NULL）; //如果文件名是空，就调用另存为功能
　　　　 return;
　　　　 }
　　　　 try
　　　　 {
　　　　 Memo->Lines->SaveToFile（FileName）;
　　　　 Modified = false; //成功保存将修改标志设定为false
　　　　 } catch（…） {
　　　　 Application->MessageBox（"文件保存出现错误!"， "木子软件"， MB_OK + MB_ICONERROR）;
　　　　 return;
　　　　 }
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击OpenAction，进入这里
　　　　void __fastcall TMainForm::OpenActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（OpenDialog->Execute（））
　　　　 {
　　　　 CloseActionExecute（NULL）; //调用关闭文件的功能
　　　　 if（Modified） return; //如果文本没有关闭就返回
　　　　 FileName = OpenDialog->FileName;
　　　　 try
　　　　 {//打开文件
　　　　 Memo->Lines->LoadFromFile（FileName）;
　　　　 } catch（…） {
　　　　 //打开文件出现错误
　　　　 Application->MessageBox（"无法打开文件!"， "木子软件"， MB_OK + MB_ICONERROR）;
　　　　 CloseActionExecute（NULL）;
　　　　 return;
　　　　 }
　　　　 Memo->Show（）;
　　　　 Modified = false; //文件的载入会造成Modified变成true
　　　　 }
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击SaveAsAction，进入这里
　　　　void __fastcall TMainForm::SaveAsActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（SaveDialog->Execute（）） //打开保存文件对话框
　　　　 {
　　　　 FileName = SaveDialog->FileName;
　　　　 SaveActionExecute（NULL）; //调用文件保存功能
　　　　 }
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击ExitAction，进入这里
　　　　void __fastcall TMainForm::ExitActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Application->Terminate（）; //应用程序结束
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//在对象查看窗口Memo组件的事件列表中，双击OnChange事件
　　　　void __fastcall TMainForm::MemoChange（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Modified = true; //文本改变
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击UndoAction，进入这里
　　　　void __fastcall TMainForm::UndoActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（Memo->CanUndo） Memo->Undo（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击CutAction，进入这里
　　　　void __fastcall TMainForm::CutActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Memo->CutToClipboard（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击CopyAction，进入这里
　　　　void __fastcall TMainForm::CopyActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Memo->CopyToClipboard（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击PasteAction，进入这里
　　　　void __fastcall TMainForm::PasteActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Memo->PasteFromClipboard（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击DelAction，进入这里
　　　　void __fastcall TMainForm::DeleteActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Memo->ClearSelection（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　//Actions列表中双击SelALLAction，进入这里
　　　　void __fastcall TMainForm::SelAllActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 Memo->SelectAll（）;
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　
　　　　//Actions列表中双击FontAction，进入这里
　　　　void __fastcall TMainForm::FontActionExecute（Tobject *Sender）
　　　　{
　　　　/*从这里开始输入代码*/
　　　　 if（FontDialog->Execute（））Font->Assign（FontDialog->Font）; //使用设定字体对话框
　　　　/*结束*/
　　　　}
　　　　//---------------------------------------------------------------------------
　　　　
　　　　
　　　　整个程序就这么多，按F9就可以运行了，虽然很简单但是已经具有了文本编辑程序的初步功能，如果你有兴趣可以继续拓展一下它的功能。如果你想把程序拷贝给你的朋友去使用，那还有点小工作要做：打开功能配置窗口（Project Options）
　　　　Linker页面去掉Use dynamic RTL选项：（（图54））

　　　　Packages页面去掉Build with runtime packages然后再重新编译程序（Build Project）：（（图55））

　　　　
　　　　BCB的帮助内容非常全面，涵盖了C/C++的语法、VCL组件的使用、数据库编程、大量的Windows API函数，还有大量的实例。只可惜是全英文的，对于英文基础比较差的朋友确实是个挑战，并不需要完全了解整个文档的内容，只要找关键部分就行了。在帮助文档中了解一个组件，只要大概知道它有哪些属性、事件和方法，然后再看看属性、事件和方法帮助中给出的例子，然后自己试试就够了。　　
　　 作者水平有限，文中不当之处敬请指正，谢谢。