Советы по Delphi
Строка как объект StringList
Вы можете создать простой объект, инкапсулирующий строку:
| TypetStrObj = Class ( tObject )Data : String;End; |
Затем вы могли бы делать следующее:
|
|
With ListBox1 DoBeginAddObject(Table1.Fields[0].AsString, TStrObject.Create ); { Объект добавляется в конец списка, поэтому для его чтения установите индекс равным Count-1 }TStrObj(Objects[Count-1]).Data := Table1.Fields[1].AsString);End; |
Теперь ваша обязанность заключается в том, что при удалении объекта из списка, вам необходимо также удалять связанный с ним объект:
| { для удаления элемента с Index I}With ListBox1 DoBeginObjects[I].Free;Delete ( I );End; |
- Robert Wittig [000760]
