Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
ВнизКак мне найти итемс в КомбоБокс по его уникальному номеру??? Найти похожие ветки
← →
Relaxxx (2004-10-24 14:52) [0]Я заполняю КомбоБокс таким образом
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-24 15:21) [1]locate
← →
Relaxxx (2004-10-25 10:25) [2]Какой locate в обічном комбобоксе?
← →
ЮЮ © (2004-10-25 10:30) [3]var
id, idx: integer;
begin
id := 100;
dx := Edit2.Items.IndexOfObject(id);
if idx > - 1 then begin
...
end;
← →
Relaxxx (2004-10-25 10:52) [4]Непонял, можно более популярно, такой код как-бі не работает?
← →
ЮЮ © (2004-10-25 11:00) [5]Edit2.Items - это TStrings, у которого есть метод нахождения индекса строки по объекту IndexOfObject. При добавлении "записи у которой уникальный номер 100" был добавлен объект TObject(100).
← →
Relaxxx (2004-10-25 11:14) [6]Ок, но все равно, во первых
dx := Edit2.Items.IndexOfObject(id);
нужно наверноеidx := Edit2.Items.IndexOfObject(TObject(id));
, а вотif idx > - 1 then begin
это типа если не найден индех, но мне кажется что это -
...
end;IndexOfObject(TObject(id))
не правельно
← →
ЮЮ © (2004-10-25 11:57) [7]>но мне кажется что это - IndexOfObject(TObject(id)) не правельно
а как же тогда
Edit2.Items.AddObject(PostavshikQ.Fields[1].AsString, TObject(PostavshikQ.Fields[0].ASInteger)); ???
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c