CriticalSection und Threads

[Sir Rufo]

Der Einwand ist berechtigt, jedoch das Problem ist eher theoretisch, denn eine CS für eine Instanz sollte so implementiert werden:

Delphi-Quellcode:

constructor TMyThreadA.Create( CreateSuspended : Boolean );
begin
  CS.Enter; // erster Aufruf für die neue Instanz
  try
    inherited; // ab jetzt gibt es eine Instanz

  finally
    CS.Leave;
  end;
end;

Ein Durcheinander kann somit nur dann auftreten, wenn ich es schaffe von 2 unterschiedlichen Threads die gleiche Objekt-Instanz zu erzeugen.
Und das ist meines Wissens nicht möglich.

Um auch diesen theoretischen Fall abzusichern, könnte man noch eine CS für die Unit verwenden, die dieses dann regeln würde.

Delphi-Quellcode:

unit uCSObjects;

interface

[...]

implementation

var
  __CS : ICriticalSection; // Eine CriticalSection für diese Unit

{ TInterfacedCriticalSection }

[...]

{ TCSThread }

function TCSThread.CS : ICriticalSection;
begin
  __CS.Enter;
  try

    if not Assigned( _CS )
    then
      _CS := TInterfacedCriticalSection.Create;

  finally
    __CS.Leave;
  end;

  Result := _CS;
end;

initialization

__CS := TInterfacedCriticalSection.Create;

end.