Moin,

wenn ich in meinem Programm mehrere Threads habe, die auf die selben Prozeduren eines meiner Objekte zugreifen und diese Prozeduren ändern private(oder was auch immer) Felder meines Objekts, wie mache ich es dann Threadsicher?

Mal als doofes Beispiel....

zusammenfalten · markieren

Delphi-Quellcode:

tblah = class(tobject)
private
  f: integer;
public
  procedure proc1;
  procedure proc2;
end;

...

procedure tblah.proc1;
begin
  for f := 1 to 10000000 do
    irgendwas;
end;

procedure tblah.proc2;
begin
  for f := 1 to 500 do
    irgendwas2;
end;

Wenn ich nun 2 Threads habe und diese gleichzeitig proc1 und proc2 aufrufen, könnte die eine Prozedur dann nicht die Laufvariable(f) der anderen ändern?
Oder läuft das in wirklichkeit hintereinander ab?

Ich habe nicht vor eine Multithread applikation zu erstellen, aber trotzdem kam die Frage auf

Hi,

du kannst dazu eine sogenannte CriticalSection benutzen (in C(++)/Linux auch als Mutex bekannt):

zusammenfalten · markieren

Delphi-Quellcode:

var SampleLock:TCriticalSection;

procedure Kritisch;
begin
  SampleLock.Acquire;
  try
    // tu was
  finally
    SampleLock.Release;
  end;
end;

Versucht nun, ein anderer Thread "Kritisch" aufzurufen, blockiert der Aufruf von Acquire solange, bis der SampleLock vom anderen Thread per Release freigegeben wurde.

cu