Использование TStringList AddObject с целыми числами?

Ответ 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));

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

A: Присвоить целочисленное значение Object

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

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

A: Вам не нужен бесплатный список объектов, потому что вы не назначаете память. поэтому вызовите только Free процедуру TStringList.

Попробуйте это примерное приложение

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