//---------------------------------------------------------------------------
#include <vcl.h>
#include <time.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double i;
DWORD dwStart = GetTickCount();
for(i=1;i<=66666666;i++);
Memo1->Lines->Add(IntToStr(GetTickCount() - dwStart));
Label1->Caption= dwStart ;
Label2->Caption= GetTickCount() ;
//ShowMessage(IntToStr(GetTickCount() - dwStart));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
clock_t start,end;
start=clock();
for(double i=0;i<66666666;i++);
end=clock();
Memo2->Lines->Add( FloatToStr(end-start));
Label1->Caption=FloatToStr(end);
Label2->Caption=FloatToStr(start);
}
//---------------------------------------------------------------------------