Hallo,

Ich hätte dann noch eine Frage..

Kann ich CriticalSections lokal definieren? d.h. :

zusammenfalten · markieren

Delphi-Quellcode:

procedure Dummy;
var cs: TCriticalSection;
begin
  cs := TCriticalSection.Create;
  try
    Cmd1;
    cs.Enter;
    try
      Cmd2;
      Cmd3;
    finally
      cs.Leave;
    end;
  finally
    cs.Free;
  end;
end;

//Thread1
procedure Thread1;
begin
  while true do Dummy;
end;

//Thread2
procedure Thread2;
begin
  while true do Dummy;
end;

Würde das gehn?

Man kann sie lokal definieren, aber in dem Beispiel macht das keinen Sinn.
Alle Threads müssen die selbe Instanz der Critical-Section zum sperren benutzen.

Erstelle die CriticaSection im Create des Threads und bau zwei public-Methoden "Lock" und "Unlock" ein. Darüber können andere Threads dann die CS bedienen.

Grüsse, Dirk