u5_4_2.cpp

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

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

#include "u5_4_2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf5_4_2 *f5_4_2;
//---------------------------------------------------------------------------
__fastcall Tf5_4_2::Tf5_4_2(TComponent* Owner)
    : TForm(Owner)
{
}
//------------------------------------------------------------------

void __fastcall Tf5_4_2::FormPaint(TObject *Sender)
{
  int price=15000,over_10k ;
  float discount,total;
  discount=1;
  over_10k=0;
  total=price;
  if (price>10000)
  {
    discount=0.9;
    over_10k=price-10000;
    total=10000+over_10k*discount;
  }
  Canvas->TextOut(10,20,"