थ्रेड-सुरक्षित बढ़ा देते और डेल्फी

Question

में एक पूर्णांक लौट

एक एकल पिरोया आवेदन में मैं इस तरह कोड का उपयोग करने के लिए रास्ता:

Interface 
    function GetNextUID : integer; 
Implementation 
    function GetNextUID : integer; 
    const 
     cUID : integer = 0; 
    begin 
     inc(cUID); 
     result := cUID; 
    end; 

इस कोर्स के एक सिंगलटन वस्तु, आदि के रूप में लागू किया जा सकता है - मैं मैं बस सबसे सरल संभव उदाहरण दे रहा हूँ।

प्रश्न: समवर्ती धागे से सुरक्षित परिणाम प्राप्त करने के लिए मैं इस फ़ंक्शन को संशोधित कैसे कर सकता हूं (या कक्षा को डिज़ाइन कर सकता हूं)?

Answer 1

आप Interlocked* कार्यों का उपयोग कर सकते हैं:

function GetNextUID : integer; 
    {$J+} // Writeble constants 
    const 
     cUID : integer = 0; 
    begin 
     Result := InterlockedIncrement(cUID); 
    end; 

अधिक आधुनिक डेल्फी संस्करणों Atomic* (जैसे AtomicDecrement, AtomicIncrement, आदि) में इन विधियों नाम बदल लें, तो उदाहरण के कोड इस हो जाता है:

function GetNextUID : integer; 
    {$J+} // Writeble constants 
    const 
     cUID : integer = 0; 
    begin 
     Result := AtomicIncrement(cUID); 
    end; 

Answer 2

सबसे आसान तरीका शायद नौकरी करने के लिए InterlockedIncrement पर कॉल करना होगा।

Answer 3

आधुनिक डेल्फी कंपाइलर्स के साथ यूनिट सिस्टम से सिंक TInterlocked के Increment फ़ंक्शन का उपयोग करना बेहतर है। सिंक ऑब्जेस। कुछ ऐसा:

type 
    TMyClass = class 
    class var 
     FIdCounter: int64; 
    var 
     FId: int64; 
    constructor Create; 
    end; 

constructor TMyClass.Create; 
begin 
    FId := TInterlocked.Increment(FIdCounter); 
end; 

यह कोड प्लेटफ़ॉर्म-स्वतंत्र रखने में मदद करता है।