Попробуйте так (с Builder не знаком, но если что-то не так, то поправьте сами):
| Код |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
Timer1->Enabled = false;
Timer1->Interval = 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button1Click(TObject *Sender)
{
Timer1->Enabled = true;
Button1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button3Click(TObject *Sender)
{
hours = 0;
min = 0;
sec = 0;
msec = 0;
Label1->Caption = "00";
Label2->Caption = "00";
Label3->Caption = "00";
Label4->Caption = "00";
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button2Click(TObject *Sender)
{
Timer1->Enabled = false;
Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void update_caption(TObject *Label, int value)
{
if (value <= 9)
{
Label->Caption = "0" + IntToStr(value);
}
else
{
Label->Caption = IntToStr(value);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Timer1Timer(TObject *Sender)
{
if ( msec < 99 )
{
msec++;
}
else
{
msec = 0;
if ( sec < 59)
{
sec++;
}
else
{
sec = 0;
if ( min < 59)
{
min++;
}
else
{
min = 0;
hours++;
update_caption(Label1, hours);
}
update_caption(Label2, min);
}
update_caption(Label3, sec);
}
update_caption(Label4, msec);
}
//---------------------------------------------------------------------------
|
Вариант, конечно, не самый оптимальный, но работать должно. |
