TStringList의 AddObject를 정수와 함께 사용 하시겠습니까?

Question

델파이 7 사용 :

• 가 어떻게이 stringlist 항목의 대상 부분에 정수를 추가 할 수 있습니다를, AddObject를 사용하고 계십니까?
• 문자열 목록 항목의 객체 속성에서 정수를 다시 검색하려면 어떻게해야합니까?
• 모든 개체를 해제하고 완료되면 을 나열하려면 어떻게합니까?

Answer 1

Q :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 : : 캐스트에 그냥 TObject

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

Q에 정수 값을 캐스팅How do i free all objects and list when done?

A : : 개체 값을

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

Q 정수 당신이 메모리을 할당되지 때문에, 개체 목록을 확보 할 필요가 없습니다. 따라서 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.