TStringList'in AddObject öğelerini tamsayılarla mı kullanıyorsunuz?

Question

delphi 7 kullanma:

• nasıl StringList öğesinin nesne kısmına bir tamsayı ekleyebilir AddObject kullanarak?
• Tamsayı bir dize listesi öğesinin özelliğinden nasıl geri alabilirim?
• Tamamlandığında tüm nesneleri ve liste 'u nasıl serbestlerim?

Answer 1

S:How can i add an integer to the object portion of a stringlist item, using AddObject?

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

A: Dökme için sadece TObject

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

S tamsayı değeri dökümHow do i free all objects and list when done?

A: Nesne Değeri

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

Q tamsayı Belleği atama değildir çünkü nesne listesini serbest gerekmez. Bu nedenle, yalnızca TStringList'un Free prosedürünü çağırın.

, sadece bir cevap yazıyordu

{$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.