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