Перейти к содержанию
Fire Monkey от А до Я
  • 0

Items + KeyItems


beklexx

Вопрос

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

  • 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

Не могу сообразить, как правильно организовать цикл 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 эмодзи.

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

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

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

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