InterlockedIncrement in welcher Unit?

[himitsu]

Zitat von delphifan2004:

Das hieße ja dass ich die Klasse TInterlocked nicht erst instanziieren muss?

Natürlich nicht, denn

Delphi-Quellcode:

  TInterlocked = class sealed
  public
    class function Increment(var Target: Integer): Integer; overload; static; inline;
    class function Increment(var Target: Int64): Int64; overload; static; inline;

(man beachte das CLASS)

Delphi-Quellcode:

var MyVar: Integer;

AtomicIncrement(MyVar);  // die System.pas ist immer eingebunden
InterlockedIncrement(MyVar);  // Winapi.Windows.pas
TInterlocked.Increment(MyVar);  // System.SyncObjs.pas