Kurze Frage zur Thread Sicherheit

**Klaus01**

Delphi-Quellcode:

			procedure TThread.Execute;

begin

  while not Terminated do

  begin

    for I := Low(A) to High(A) do

    begin

      EnterCriticalSection(CS);

      if Use then

      begin

        //hier werden nur Felder von A[I] gelesen und geändert

      end;

      LeaveCriticalSection(CS)

    end;

    Sleep(1);

  end;

end;

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TThread.Execute;

begin

  while not Terminated do

  begin

    EnterCriticalSection(CS);

    try

      for I := Low(A) to High(A) do

      begin

        if Use then

          begin

            //hier werden nur Felder von A[I] gelesen und geändert

          end;

      end;

    finally

      LeaveCriticalSection(CS)

    end;

    Sleep(1);

  end;

end;

oder

TThreadList verwenden.

Grüße
KLaus

Kurze Frage zur Thread Sicherheit

AW: Kurze Frage zur Thread Sicherheit

Forumregeln