u5_9_1.cpp

《C++ Builder 5程序设计——基础教学篇》程序源代码2.

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

#include "u5_9_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf5_9_1 *f5_9_1;
//---------------------------------------------------------------------------
__fastcall Tf5_9_1::Tf5_9_1(TComponent* Owner)
    : TForm(Owner)
{
}
//--------------------------------------------------------------------

void __fastcall Tf5_9_1::btnRunClick(TObject *Sender)
{
  if (rbtMale->Checked==true)
      lblShow1->Caption=edtName->Text+"