u9_2_2.cpp

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

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

#include "U9_2_2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf9_2_2 *f9_2_2;
//---------------------------------------------------------------------------
__fastcall Tf9_2_2::Tf9_2_2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tf9_2_2::FormPaint(TObject *Sender)
{
  int data[100]={41,25,92,71,52,38,45};
  int search_data=71,search_num=-1;
  int i,num=7,x=20,y=0,del_y=20;
  for(i=0;i<=num-1;i++)
  {
    Canvas->TextOut(x,y+=del_y,"材 "+IntToStr(i+1)+"   计