Перейти к содержанию
  • Регистрация
  • 0
beklexx

Items + KeyItems

Вопрос

Народ, подскажите пожалуйста как сейчас решают вопрос с уникальным ключом для каждой строки в Combobox... что то типа Items.Tag там добавили, нет?

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Рекомендуемые сообщения

  • 1

Народ, подскажите пожалуйста как сейчас решают вопрос с уникальным ключом для каждой строки в Combobox... что то типа Items.Tag там добавили, нет?

 

Кто вам мешает создать TListBoxItem

var
  item: TListBoxItem;
begin
  item := TListBoxItem.Create(nil);
  item.text := 'combo item';
  item.parent := Combobox1;
  Item.tag := 1000;
end;

доступ к значению (по памяти)

ComboBox1.ListItems[0].Tag

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Заполняю ComboBox из БД, где  Item.tag - это ID записи.

А нет ли у ComboBox стандартных/готовых методов поиска и позиционирования (выбора) нужного TListBoxItem`а?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

Не могу сообразить, как правильно организовать цикл For/In

 

function TfmEditObject.FindListBoxItem(id: integer; combo: TComboBox): integer;
Var
 ListBoxItem: TListBoxItem;
begin
  result := -1;
  for ListBoxItem in Combo.ListItems do
    if ListBoxItem.Tag = id then
      exit(ListBoxItem.Index)
end;

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты
  • 0

вот так будет правильно

function FindListBoxItem(id: integer; combo: TComboBox): integer;
var
  I: integer;
begin
  result := -1;
  for I := 0 to combo.Count - 1 do
  begin
    if combo.ListItems[I].Tag = id then
      Exit(combo.ListItems[I].Index);
  end;
end;

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Похожий контент

  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...