bcb6多线程计数器

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include "Unit2.h" #pragma package(smart_init) //--------------------------------------------------------------------------- // Important: Methods and properties of objects in VCL can only be // used in a method called using Synchronize, for example: // // Synchronize(UpdateCaption); // // where UpdateCaption could look like: // // void __fastcall thread1::UpdateCaption() // { // Form1->Caption = "Updated in a thread"; // } //--------------------------------------------------------------------------- void __fastcall thread1::MY_add(void) { int i; i = StrToInt(Form1->Edit3->Text); i++; Form1->Edit3->Text = IntToStr(i); Form1->Memo1->Lines->Add("1:" + IntToStr(i)); } __fastcall thread1::thread1(bool CreateSuspended) : TThread(CreateSuspended) { } //--------------------------------------------------------------------------- void __fastcall thread1::Execute() { //---- Place thread code here ---- int i,j; for(j=0;j<1000;j++) { if(Form1->RadioButton1->Checked) Synchronize(MY_add); else { i = StrToInt(Form1->Edit3->Text); i++; Form1->Edit3->Text = IntToStr(i); Form1->Memo1->Lines->Add("1:" + IntToStr(i)); } Sleep(10); } } //---------------------------------------------------------------------------