Как использовать свойства элементов ListBox для хранения записей в Delphi

Delphi , Компоненты и Классы , Списки

При работе с компонентом ListBox в Delphi часто возникает потребность хранить дополнительные данные, связанные с каждым элементом списка. В этом случае можно использовать свойство Items.Objects, которое позволяет назначить дополнительный объект для каждого элемента списка. Вопрос, который часто возникает у разработчиков, заключается в том, можно ли использовать записи (records) для хранения данных, или же необходимо создавать классы.

Пример использования записей в ListBox

Давайте рассмотрим пример, в котором у нас есть запись TServerRec, содержащая информацию о сервере:

type
  TServerRec = record
    ID: Integer;
    DisplayName: string;
    Address: string;
    Port: Integer;
  end;

В процедуре PopulateServers мы заполняем список серверов, используя эту запись:

procedure TMainForm.PopulateServers;
var
  server: TServerRec;
begin
  for server in FServerList do
  begin
    lbServers.AddObject(server.DisplayName, server);
  end;
end;

Хранение записей в ListBox

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

Пример использования класса вместо записи

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

type
  PServerRec = ^TServerRec;
  TServerRec = record
    ID: Integer;
    DisplayName: string[255];
    Address: string[255];
    Port: Integer;
  end;
  TServer = class
  private
    FData: PServerRec;
  public
    constructor Create;
    destructor Destroy; override;
    property ID: Integer read FData^.ID;
    property DisplayName: string read FData^.DisplayName write FData^.DisplayName;
    // аналогично для Address и Port
  end;

В конструкторе Create класса TServer выделяем память для записи, а в деструкторе Destroy освобождаем её.

Пример заполнения списка объектами

procedure TForm1.Button1Click(Sender: TObject);
var
  server: TServer;
begin
  server := TServer.Create;
  server.DisplayName := 'Server 1';
  lbServers.Items.AddObject(server.DisplayName, server);
  // аналогично для других серверов
end;

Получение данных из ListBox

Чтобы извлечь информацию, необходимо создать метод, который будет возвращать ссылку на объект класса TServer:

procedure TForm1.lbServersDblClick(Sender: TObject);
var
  server: TServer;
begin
  server := TServer(lbServers.Items.Objects[lbServers.ItemIndex]);
  ShowMessage(server.DisplayName);
end;

Не забудьте освободить память для объектов, когда они больше не нужны, вызвав метод Free.

Заключение

Использование классов вместо записей позволяет избежать проблем с управлением памятью и упрощает работу с объектами в Delphi. При этом, используя классы, вы получаете дополнительные возможности, такие как наследование и перегрузка операторов, что делает ваш код более гибким и безопасным.

Создано по материалам из источника по ссылке.

Как использовать свойства элементов ListBox в Delphi для хранения записей, рассматривая преимущества использования классов вместо простых записей для управления памятью и расширения функционала.

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

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

:: Главная :: Списки ::