Threads Frage zu CriticalSections

[Jacki O]

Hallo,

ich mache das so:

Code:

var CS_MYSection : TRTLCriticalSection; //Globale Variable
procedure TForm1.StartThread;
begin
 // MyThread erzeugen,starten 
end;



initialisation
 InitializeCriticalSection(CS_MYSection);

finalization
 DeleteCriticalSection(CS_MYSection); 


...

procedure MyThread.Execute;
begin
 EnterCritcalSection(CS_MYSection);

 //Hier der Code, den der Thread ausführen soll

 LeaveCriticalSection(CS_MYSection);

end;

Gruß Jacki