पूर्णांक के साथ TStringList's AddObject का उपयोग करना?

Question

डेल्फी 7 का उपयोग करना:

• कैसे मैं एक stringlist आइटम की वस्तु हिस्से को एक पूर्णांक जोड़ सकते हैं, AddObject का उपयोग कर?
• मैं ऑब्जेक्ट स्ट्रिंगलिस्ट आइटम की संपत्ति से पूर्णांक को वापस कैसे प्राप्त कर सकता हूं?
• मैं ऑब्जेक्ट्स को कैसे मुक्त कर सकता हूं और को कब पूरा कर सकता हूं?

Answer 1

प्रश्न:How can i add an integer to the object portion of a stringlist item, using AddObject?

एक:How can a retrieve the integer back from a object property of stringlist item?

एक:: कास्ट करने के लिए बस TObject

List.AddObject('A string',TObject(1)); 

क्यू को पूर्णांक मान डाली वस्तु मूल्य पूर्णांक

AValue := Integer(List.Objects[i]); 

प्रश्न:How do i free all objects and list when done?

एक: क्योंकि आप स्मृति बताए नहीं कर रहे हैं आप, वस्तु सूची मुक्त जरूरत नहीं है। इसलिए की Free प्रक्रिया को कॉल करें।

, मैं सिर्फ एक जवाब लिख रहा था यह नमूना अनुप्रयोग

{$APPTYPE CONSOLE} 

uses 
    Classes, 
    SysUtils; 


Var 
    List : TStringList; 
    i : Integer; 
begin 
    try 
    List:=TStringList.Create; 
    try 
     //assign the string and some integer values 
     List.AddObject('A string',TObject(1)); 
     List.AddObject('Another string',TObject(100)); 
     List.AddObject('And another string',TObject(300)); 

     //Get the integer values back 

     for i:=0 to List.Count - 1 do 
     Writeln(Integer(List.Objects[i])); 

    finally 
     //Free the list 
     List.free; 
    end; 
    except 
    on E:Exception do 
     Writeln(E.Classname, ': ', E.Message); 
    end; 

    Readln; 
end.