Threads, Zugriff auf arrays

[bundy]

hy , du brauchst SyncObjs

Delphi-Quellcode:

MyThread = class(TThread)
  private
    { Private-Deklarationen }
  protected
  procedure Execute; override;

  end;


var
  kritischerAbschnitt:TCriticalSection;


procedure TForm1.FormCreate(Sender: TObject);
begin
kritischerAbschnitt:=TCriticalSection.Create;
end;

procedure MyThread.execute;
begin

 kritischerAbschnitt.Enter;
   //Machwas...
 kritischerAbschnitt.Leave;
end;