TStringListのAddObjectを整数で使用していますか？

Question

デルファイ7の使用：

• がどのように私はSTRINGLIST項目の対象部分に整数を追加することができますが、 AddObjectを使用していますか？
• オブジェクトから整数を取得するにはどうすればいいですか？ stringlist itemのプロパティ？
• すべてのオブジェクトを解放し、完了したら をリストするにはどうすればよいですか？

Answer 1

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

A：ちょうどTObject

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

Qに整数値をキャスト：How can a retrieve the integer back from a object property of stringlist item?

A：キャストへオブジェクト値を整数

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

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

A：あなたはメモリを割り当てていないので、あなたは、オブジェクトのリストを解放する必要はありません。 TStringListの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.