Threads: Wie globale Int64-Variable sicher inkrementieren?

**Dani**

Hi,

Ein Beispiel: In Unit1.pas ist die globale Variable TotalBytesRec definiert.

Delphi-Quellcode:

			var

 TotalBytesRec : Int64 = 0;

In einem von mehreren Threads wird folgender Code ausgeführt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDownloadThread.OnWork(Sender: TObject; AWorkMode: TWorkMode;

  const AWorkCount: Integer);

var i: Integer;

begin

 If AWorkMode=wmRead then

  begin

   Inc(TotalBytesRec, AWorkCount-FLastWorkCount);

   i := PercentDone;

   PercentDone := trunc((AWorkCount / FileSize) * 100);

   If i<>PercentDone then Synchronize(UpdateProgress);

   FLastWorkCount := AWorkCount;

  end;

end;

Das Problem:
Der Aufruf von Inc() macht mir Sorgen; ist das überhaupt Thread-sicher? Bei nem Int64 wird wohl kaum eine atomare Operation daraus

Gruß,
Dani

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

Threads: Wie globale Int64-Variable sicher inkrementieren?

Threads: Wie globale Int64-Variable sicher inkrementieren?

Forumregeln