您所在位置：主题：二级C++辅导：C++Builder初级调试技术[1]
xtpwwk
[专家分：0] 发布于 2009-04-23 10:56:00
http://www.educity.cn 作者：pc 来源：希赛教育
有很多是可以用调试来看到问题所在。只是初学者不知道有这些东西，即使知道也不是如何去用。
曾经也是这样。BUG一直困扰自己，常常用ShowMessage（“xxxx”）；来观察程序运行现象。
因为本人只学过TC，在TC中代码写的不很长，程序流程自己很清楚，也就没去使用TC的调试器，好象它没有集成的调试器。 在BCB下，程序流程总是跳来跳去不象TC下样结构化编程序样条理清楚。因为BCB编程中会产生很多事件，很多内部变化，而且有很多组件。就象汇编语言中的标志寄存器样，初学者无法掌握它。
本人试来试去也不得其法。最后参加了工作从工作中及前辈的示范，很快学会了基本调试手段。主要使用 F7 F8 F5 CTRL+F5 因为这些必须组合在一起才能工作好，就象API函数样必须有多个函数齐心协力才能办成事。
这就是我想写该文章的目的，也可做为我的心得。现在我们就讲讲基本的非事件的例子。
我们就来段 :
TForm1 *Form1;
//----------------------------------------------
__fastcall TForm1::TForm1（TComponent* Owner）
: TForm（Owner）
{
Image1->Canvas->Font->Name=“SimSun”；
Image1->Canvas->Font->Size=30;
Image1->Canvas->TextOut（0,0,Edit3->Text）；
}
//----------------------------------------------
void __fastcall TForm1::Button1Click（TObject *Sender）
{
AnsiString Text;
int i,j;
for（i=0;i<30;i++）
{
for（j=0;j<30;j++）
{
if（Image1->Canvas->Pixels[j][i]==clWhite）
Text=Text+Edit2->Text;////当然如果你要生成如下的文字，背景就用“ ”。
else
Text=Text+Edit1->Text;
}
Memo1->Lines->Add（Text）；
Text=“”；
}
}
//----------------------------------------------
用F8 看看程序流程
=>WINAPI WinMain（HINSTANCE, HINSTANCE, LPSTR, int） //调试指针指向程序入口点 但还没有执行该条语句
{
try //第2下F8后指向这里 {
//第4下F8后指向这里决定进去看看按下F7 请看下面…
Application->Run（）； //第9下 F8 后指向这里 程序即将进入消息循环 马上就会显示出程序界面来
}
catch （Exception &exception）
{
Application->ShowException（&exception）；
}
catch （…）
{
try
{
throw Exception（“”）；
}
catch （Exception &exception）
{
Application->ShowException（&exception）；
}
}
return 0;
}
//----------------------------------------------
第5下 F7后指向：
=> __fastcall TForm1::TForm1（TComponent* Owner） //构造函数入口点
: TForm（Owner） //第6下 F8 不管它！
{
Image1->Canvas->Font->Name=“SimSun”； //第7下F8，想看看Name是不是“SimSun” 好把光标移到Name中间按下 Ctrl+F5
Image1->Canvas->Font->Size=30; //第7下F8后已经运行了上面的语句了，看看结果如何？
Image1->Canvas->TextOut（0,0,Edit3->Text）； //第8下F8，同样可以看看Edit3的Text，你自己去看看！
=> } //第9下F8，指到这里想告诉你该函数即将结束 这是它出口点
再看看F5断点设置：把光标移到 if（Image1->Canvas->Pixels[j][i]==clWhite）中间，按下F5它就会用红色标记出。
注意必须在有效代码行中设置，空格和刮号为无效的。
void __fastcall TForm1::Button1Click（TObject *Sender）
{
AnsiString Text;
int i,j;
for（i=0;i<30;i++）
{
for（j=0;j<30;j++）
{
if（Image1->Canvas->Pixels[j][i]==clWhite）
Text=Text+Edit2->Text;////当然如果你要生成如下的文字，背景就用“ ”。
else
Application->Initialize（）； //第3下F8后指向这里，决定是进到里面看看函数运行过程还是继续？选择跳过，再按一次F8。
Application->CreateForm（__classid（TForm1）， &Form1）；
//第4下F8后指向这里决定进去看看按下F7 请看下面…
程序就会停了下来接着就可以使用F8，Ctrl+F5。如果没有问题就可以把端点取消掉，然后F9，让它自己运行去。
以后再说了，先说到这里 再见！ Program DeBug Over……
有很多是可以用调试来看到问题所在。只是初学者不知道有这些东西，即使知道也不是如何去用。
曾经也是这样。BUG一直困扰自己，常常用ShowMessage（“xxxx”）；来观察程序运行现象。
因为本人只学过TC，在TC中代码写的不很长，程序流程自己很清楚，也就没去使用TC的调试器，好象它没有集成的调试器。 在BCB下，程序流程总是跳来跳去不象TC下样结构化编程序样条理清楚。因为BCB编程中会产生很多事件，很多内部变化，而且有很多组件。就象汇编语言中的标志寄存器样，初学者无法掌握它。
本人试来试去也不得其法。最后参加了工作从工作中及前辈的示范，很快学会了基本调试手段。主要使用 F7 F8 F5 CTRL+F5 因为这些必须组合在一起才能工作好，就象API函数样必须有多个函数齐心协力才能办成事。
这就是我想写该文章的目的，也可做为我的心得。现在我们就讲讲基本的非事件的例子。
我们就来段 :
TForm1 *Form1;
//----------------------------------------------
__fastcall TForm1::TForm1（TComponent* Owner）
: TForm（Owner）
{
Image1->Canvas->Font->Name=“SimSun”；
Image1->Canvas->Font->Size=30;
Image1->Canvas->TextOut（0,0,Edit3->Text）；
}
//----------------------------------------------
void __fastcall TForm1::Button1Click（TObject *Sender）
{
AnsiString Text;
int i,j;
for（i=0;i<30;i++）
{
for（j=0;j<30;j++）
{
if（Image1->Canvas->Pixels[j][i]==clWhite）
Text=Text+Edit2->Text;////当然如果你要生成如下的文字，背景就用“ ”。
else
Text=Text+Edit1->Text;
}
Memo1->Lines->Add（Text）；
Text=“”；
}
}
//----------------------------------------------
用F8 看看程序流程
=>WINAPI WinMain（HINSTANCE, HINSTANCE, LPSTR, int） //调试指针指向程序入口点 但还没有执行该条语句
{
try //第2下F8后指向这里 {
//第4下F8后指向这里决定进去看看按下F7 请看下面…
Application->Run（）； //第9下 F8 后指向这里 程序即将进入消息循环 马上就会显示出程序界面来
}
catch （Exception &exception）
{
Application->ShowException（&exception）；
}
catch （…）
{
try
{
throw Exception（“”）；
}
catch （Exception &exception）
{
Application->ShowException（&exception）；
}
}
return 0;
}
//----------------------------------------------
第5下 F7后指向：
=> __fastcall TForm1::TForm1（TComponent* Owner） //构造函数入口点
: TForm（Owner） //第6下 F8 不管它！
{
Image1->Canvas->Font->Name=“SimSun”； //第7下F8，想看看Name是不是“SimSun” 好把光标移到Name中间按下 Ctrl+F5
Image1->Canvas->Font->Size=30; //第7下F8后已经运行了上面的语句了，看看结果如何？
Image1->Canvas->TextOut（0,0,Edit3->Text）； //第8下F8，同样可以看看Edit3的Text，你自己去看看！
=> } //第9下F8，指到这里想告诉你该函数即将结束 这是它出口点
再看看F5断点设置：把光标移到 if（Image1->Canvas->Pixels[j][i]==clWhite）中间，按下F5它就会用红色标记出。
注意必须在有效代码行中设置，空格和刮号为无效的。
void __fastcall TForm1::Button1Click（TObject *Sender）
{
AnsiString Text;
int i,j;
for（i=0;i<30;i++）
{
for（j=0;j<30;j++）
{
if（Image1->Canvas->Pixels[j][i]==clWhite）
Text=Text+Edit2->Text;////当然如果你要生成如下的文字，背景就用“ ”。
else
Application->Initialize（）； //第3下F8后指向这里，决定是进到里面看看函数运行过程还是继续？选择跳过，再按一次F8。
Application->CreateForm（__classid（TForm1）， &Form1）；
//第4下F8后指向这里决定进去看看按下F7 请看下面…
程序就会停了下来接着就可以使用F8，Ctrl+F5。如果没有问题就可以把端点取消掉，然后F9，让它自己运行去。
以后再说了，先说到这里 再见！ Program DeBug Over……