TInterlocked¶

type

  TInterlocked = class
    class function Add(var Target: LongInt; aIncrement: LongInt) : LongInt; overload;
    class function Add(var Target: Int64; aIncrement: Int64) : Int64; overload;
    class function Exchange(var Target: LongInt; Value: LongInt) : LongInt; overload;
    class function Exchange(var Target: Int64; Value: Int64) : Int64; overload;
    class function Exchange(var Target: Pointer; Value: Pointer) : Pointer; overload;
    class function Exchange(var Target: TObject; Value: TObject) : TObject; overload;
    class function Exchange<T: class>(var Target: T; Value: T) : T; overload;
    class function CompareExchange(var Target: LongInt; Value: LongInt; 
                              Comparand: LongInt) : LongInt; overload;
    class function CompareExchange(var Target: LongInt; Value: LongInt; 
                              Comparand: LongInt; 
                              out Succeeded: Boolean) : LongInt; overload;
    class function CompareExchange(var Target: Int64; Value: Int64; 
                              Comparand: Int64) : Int64; overload;
    class function CompareExchange(var Target: Pointer; Value: Pointer; 
                              Comparand: Pointer) : Pointer; overload;
    class function CompareExchange(var Target: TObject; Value: TObject; 
                              Comparand: TObject) : TObject; overload;
    class function CompareExchange<T: class>(var Target: T; Value: T; 
                                        Comparand: T) : T; overload;
    class function Decrement(var Target: LongInt) : LongInt; overload;
    class function Decrement(var Target: Int64) : Int64; overload;
    class function Increment(var Target: LongInt) : LongInt; overload;
    class function Increment(var Target: Int64) : Int64; overload;
    class function BitTestAndSet : Boolean;
    class function BitTestAndClear : Boolean;
    class function Read : Int64;
  end;