Utilizzo di AddObject di TStringList con numeri interi?

Question

utilizzando Delphi 7:

• Come posso aggiungere un numero intero alla quota oggetto di un elemento stringlist, utilizzando AddObject?
• Come recuperare il valore intero da un oggetto proprietà dell'elemento stringa?
• Come si liberano tutti gli oggetti e l'elenco al termine?

Answer 1

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

A: appena lanciato il valore intero a TObject

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

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

A: Fusioni a interi il valore dell'oggetto

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

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

A: Non è necessario liberare la lista degli oggetti, perché non sta assegnando la memoria. quindi chiama solo la procedura Free dello TStringList.

Prova! Campione

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