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

Delphi , Синтаксис , Текст и Строки

Автор: 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;

Статья описывает создание простого объекта StringList, инкапсулирующего строку, и использование его в списке элементов ListBox с возможностью удаления связанных объектов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::