Советы по Delphi

         

Строка как объект StringList


Вы можете создать простой объект, инкапсулирующий строку:

    Type tStrObj = Class ( tObject ) Data : String; End;

Затем вы могли бы делать следующее:



    With ListBox1 Do Begin AddObject(Table1.Fields[0].AsString, TStrObject.Create );
{ Объект добавляется в конец списка, поэтому для его чтения установите индекс равным Count-1 } TStrObj(Objects[Count-1]).Data := Table1.Fields[1].AsString); End;

Теперь ваша обязанность заключается в том, что при удалении объекта из списка, вам необходимо также удалять связанный с ним объект:

    { для удаления элемента с Index I} With ListBox1 Do Begin Objects[I].Free; Delete ( I ); End;

- Robert Wittig [000760]



Содержание раздела