u_inq.cpp

C++Builde5程序设计—基础教学篇程序源代码1。

//---------------  u_inq  ------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "u_inq.h"
#include "u_main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmInquire *frmInquire;
struct person_struct
{
  String name;
  int year;
};
extern person_struct person[];
extern int tot;
//---------------------------------------------------------------------------
__fastcall TfrmInquire::TfrmInquire(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmInquire::btnNameInquireClick(TObject *Sender)
{
  int x=10,y=10,del_x=70,del_y=20;
  int i,name_len;
  String name_s,t;
  frmInquire->Caption="﹎