//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
#include 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int a[100];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    randomize();//重設亂數產生器
    for ( int i = 0; i < 100; i   )
        a[i] = random(100);
        Timer1->Interval = 180000;//Timer設為3 分鐘動作一次
}
//---------------------------------------------------------------------------    void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    static int j = 0;
    printf("%d",a[j  ]);//提出一個
    if ( j == 100 )
        Timer1->Enabled = false;//100次後就不做了
}
//---------------------------------------------------------------------------