TCriticalSection not working


I made a little test program to test the working of critical sections, but it doesn't give the result I want.
I have 2 forms with each a button on.  When clicking buIncrease, the program counts from 0 to 100.  When it is counting and the couter is at 50 (eg) , i click on the button on the second form, wich calls the same function of when clicking the first button.  The result is that the label laThread1Status displays 0 to 50 and then counts from 0 to 100 (which is done by the second call), and when it reaches 100, it restarts counting from 50 to 100 (which is the first call that is resumed).
The criticalsection should make sure that the first call first has to be completed, no..?

void __fastcall TForm1::buIncreaseClick(TObject *Sender)
        int max = 100;
        csList->Acquire();   //TCriticalSection
        for(int i=0;i<max;i++)
                laThread1Status->Caption = "running: "+IntToStr(i);
        laThread1Status->Caption = "finished";

void __fastcall TForm2::Button2Click(TObject *Sender)

Who is Participating?
AdrianSRUConnect With a Mentor Commented:
>The critical section does not protect against "concurrent" access from within the same thread.
cleaverX is correct.  Builder programs have a main VCL thread that the events run in.  Since both events are comming from the same thread, TCriticalSection will allow the second Acquire to complete before the first Release is called.

The solution to your problem is to use classes decended from TThread.  That way your synchronization will work fine.

cleaverXAuthor Commented:
The critical section does not protect against "concurrent" access from within the same thread...
This has more to do with events I think...
how can i force a function to finish before this same function is called by an event...?
what is the declaration and initialisation of csList?
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.