| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как мне найти итемс в КомбоБокс по его уникальному номеру??? [D6]

Relaxxx ©   (2004-10-24 14:52:00) 

Я заполняю КомбоБокс таким образом
  Edit2.Clear;
  while not PostavshikQ.eof do
  begin
    Edit2.Items.AddObject(PostavshikQ.Fields[1].AsString, TObject(PostavshikQ.Fields[0].ASInteger));
    PostavshikQ.Next;
  end;

И как мне перейти например на запись у которой уникальный номер 100??

---

ЮЮ   (2004-10-25 11:57:00) [1]

>но мне кажется что это - IndexOfObject(TObject(id)) не правельно

а как же тогда
Edit2.Items.AddObject(PostavshikQ.Fields[1].AsString, TObject(PostavshikQ.Fields[0].ASInteger)); ???

---

Relaxxx   (2004-10-25 11:14:00) [2]

Ок, но все равно, во первых   dx := Edit2.Items.IndexOfObject(id);нужно наверное idx := Edit2.Items.IndexOfObject(TObject(id));, а вот  
if idx > - 1 then begin
  ...
end;это типа если не найден индех, но мне кажется что это - IndexOfObject( TObject(id))не правельно

---

ЮЮ   (2004-10-25 11:00:00) [3]

Edit2.Items - это TStrings, у которого есть метод нахождения индекса строки по объекту IndexOfObject. При добавлении "записи у которой уникальный номер 100" был добавлен объект TObject(100).

---

Relaxxx   (2004-10-25 10:52:00) [4]

Непонял, можно более популярно, такой код как-бі не работает?

---

ЮЮ   (2004-10-25 10:30:00) [5]

var
 id, idx: integer;
begin
 id := 100;
 dx := Edit2.Items.IndexOfObject(id);
 if idx > - 1 then begin
   ...
 end;

---

Relaxxx   (2004-10-25 10:25:00) [6]

Какой locate в обічном комбобоксе?

---

Плохиш   (2004-10-24 15:21:00) [7]

locate

---

Наверх