Как извлечь идентификатор выбранного элемента списка в Delphi для отображения в ShowMessage

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

?

Вопрос пользователя связан с работой со списком элементов в среде разработки Delphi. Пользователь добавляет элементы в ListBox, используя цикл, и хочет получить идентификатор выбранного элемента для отображения в диалоговом окне ShowMessage. В текущей реализации отображается только имя элемента, без идентификатора.

Проблема

При добавлении элементов в ListBox с использованием цикла, где каждый элемент имеет формат [ID] Имя, пользователь столкнулся с необходимостью извлечения идентификатора выбранного элемента для дальнейшей обработки.

for i:=0 to HomeWorkers.Count-1 do
begin
  s := '['+HomeWorker[i].Id+']  ' + HomeWorker[i].Name;
  Listbox1.Items.Add(s);
end;

Пользователь может получить текст выбранного элемента, но ему необходимо извлечь из этого текста только идентификатор.

Решение

Для решения проблемы можно использовать вспомогательную функцию, которая будет извлекать идентификатор из строки, содержащей формат [ID] Имя.

function GetIdFromListBoxText(const Text: string): string;
var
  P1, P2: Integer;
begin
  P1 := Pos('[', Text);
  P2 := Pos(']', Text);
  if (P1 <> 0) and (P2 <> 0) then
    Result := Copy(Text, P1 + 1, P2 - P1 - 1)
  else
    Result := '';
end;

Эту функцию можно использовать следующим образом:

ShowMessage(GetIdFromListBoxText(ListBox1.Items[ListBox1.ItemIndex]));

Альтернативное решение

Также можно использовать свойство Objects ListBox для хранения дополнительной информации об элементе, в данном случае - идентификатор.

ListBox1.Items.AddObject(Format('[%d] %s', [HomeWorker.ID, HomeWorker.Name]), TObject(HomeWorker.ID));

И извлечение идентификатора будет выглядеть следующим образом:

ShowMessage(IntToStr(Integer(ListBox1.Items.Objects[ListBox1.ItemIndex])));

Важные замечания

• При использовании функции GetIdFromListBoxText важно убедиться, что формат строки соответствует ожидаемому (наличие квадратных скобок и цифр).
• При использовании свойства Objects необходимо учитывать тип данных, который будет храниться, и корректно его типокастить.

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

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

Вопрос связан с необходимостью извлечения идентификатора выбранного элемента списка в среде разработки Delphi для его дальнейшего использования и отображения.

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

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

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