Используя TStringList AddObject с целыми числами? - PullRequest
Новая
       42

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

12 голосов
/ 30 августа 2011

Использование delphi 7:

  • Как я могу добавить целое число к части объекта элемента списка строк, используя AddObject?
  • Как я могу получить целое число обратно из объекта свойство элемента списка строк?
  • Как мне освободить все объекты и список когда сделано?

1 Ответ

38 голосов
/ 30 августа 2011

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: Вам не нужно освобождать список объектов, потому что вы не выделяете память .так что вызывайте только 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.
...