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