अज्ञात प्रक्रिया में स्थानीय चर का हैंडलिंग TThread.Queue

Question

मेरे पास एक ऐसा प्रोग्राम है जो थ्रेड का उपयोग करता है जो कुछ काम करता है। धागे को प्रगति के दूसरे धागे (इस उदाहरण में मुख्य धागा) को सूचित करना चाहिए।

यदि मैं सिंक्रनाइज़ करने के लिए सिंक्रनाइज़ करने के लिए() सिंक्रनाइज़ करता हूं, तो सब कुछ अपेक्षित काम करता है। अगर मैं मुख्य थ्रेड के साथ सिंक्रनाइज़ और के लिए-चर प्रकाशित करें और यह एक सूची में डाल दिया हर एक मूल्य के सही ढंग से मेरी ListBox में मुद्रित:

procedure TWorkerThread.Execute; 
var 
    i: Integer; 
begin 
    inherited; 

    for i := 1 to 1000 do 
    begin 
    Synchronize(
     procedure() 
     begin 
     FireEvent(i); 
     end); 
    end; 
end; 

आउटपुट: 1, 2, 3, 4, 5। .. 1000

अगर मैं का उपयोग कतार() तुल्यकालन आउटपुट के रूप में नहीं की उम्मीद है प्रदर्शन करने के लिए:

procedure TWorkerThread.Execute; 
var 
    i: Integer; 
begin 
    inherited; 

    for i := 1 to 1000 do 
    begin 
    Queue(
     procedure() 
     begin 
     FireEvent(i); 
     end); 
    end; 
end; 

आउटपुट: 200, 339, 562, 934, 1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001, 1001, [...]

यहाँ क्या हो रहा है? मेरी समझ के अनुसार अनाम प्रक्रिया को परिवर्तनीय "i" पर कब्जा करना चाहिए?

Answer 1

अज्ञात प्रक्रिया चर संदर्भ को कैप्चर करती है। इसका मतलब है कि अज्ञात प्रक्रिया चलने पर मान अनिश्चित है।

आदेश एक मूल्य पर कब्जा करने के लिए, अगर आप इस तरह एक अद्वितीय फ्रेम में लपेट करना होगा:

Type 
    TWorkerThread = class (TThread) 
    ... 
    function GetEventProc(ix : Integer): TThreadProcedure; 
    end; 

function TWorkerThread.GetEventProc(ix : Integer) : TThreadProcedure; 
// Each time this function is called, a new frame capturing ix 
// (and its current value) will be produced. 
begin 
    Result := procedure begin FireEvent(ix); end; 
end; 

procedure TWorkerThread.Execute; 
var 
    i: Integer; 
begin 
    inherited; 

    for i := 1 to 1000 do 
    begin 
    Queue(GetEventProc(i)); 
    end; 
end; 

भी देखें Anonymous methods - variable capture versus value capture।