¿Usar AddObject de TStringList con números enteros?

Question

Utilizando Delphi 7:

• ¿Cómo puedo agregar un número entero a la parte objeto de un artículo StringList, usando AddObject?
• ¿Cómo puedo recuperar el número entero de un objeto propiedad del elemento de lista de cadenas?
• ¿Cómo puedo liberar todos los objetos y listar cuando haya terminado?

Answer 1

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

R: Sólo echado el valor entero a TObject

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

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

A: moldeada a Entero El valor de los objetos

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

Q:How do i free all objects and list when done?

A: No es necesario liberar a la lista de objetos, porque no está asignando memoria. así que solo llame al procedimiento Free del TStringList.

Probar aplicación muestra

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