C++builder5编程实例与技巧S03B例子有错改正版

  • 格式:docx
  • 大小:136.50 KB
  • 文档页数:3

这个PDF的第106页有个例程S03B。运行界面如下:
但是他提供的代码有误,我修改代码并能正常运行后的代码是:
//---------------------------------------------------------------------------

#include
#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)
{
Button1->Enabled=false;
Dirty=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
if(Edit1->Text!="")
Memo1->Text="姓名:"+Edit1->Text;
if(ComboBox1->Text!="")
Memo1->Text=Memo1->Text+"\r\n学历:"+ComboBox1->Text;
if(RadioButton1->Checked)
Memo1->Text=Memo1->Text+"\r\n性别:男";
else
Memo1->Text=Memo1->Text+"\r\n性别:女";
if(RadioGroup1->ItemIndex==0)
Memo1->Text=Memo1->Text+"\r\n职称:讲师";
else if(RadioGroup1->ItemIndex==1)
Memo1->Text=Memo1->Text+"\r\n职称:副教授";
else
Memo1->Text=Memo1->Text+"\r\n职称:教授";

if(CheckBox1->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国社科院院士";
if(CheckBox2->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国工程院院士";
if(CheckBox3->Checked==true)
Memo1->Text=Memo1->Text+"\r\n该同志为:中国工程院院士";
Dirty=false;

Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(Dirty)
{
if(MessageDlg("简历内容已经修改,是否更新?",
mtInformation,TMsgDlgButtons()<{
Button1Click(BitBtn1);
ShowMessage("你选择的是刷新。");
}
}
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Button1->Enabled=True;
Dirty=True;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
Edit1Change(this);
}
//---------------------------------------------------------------------------

注意:要在Unit1.h中设置参数

软件运行后的界面是:

有需要工程文件的可以联系我。。。。