Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> поиск по obect в combobox 
V
    Опции темы
bistropoke
Дата 31.10.2011, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2011

Репутация: нет
Всего: нет
Приветствую.
Есть один Combobox.
Который заполнен из БД.
Код

procedure TForm3.fillediz;
var
  squery:string;
  eid: integer;
  ename: string;
begin
  if DM.MainConn.Connected = true then
  begin
   self.ComboBox1.Clear;
   squery:='select * from nsi_edizm';
   DM.Q1.SQL.Clear;
   DM.Q1.SQL.text:=squery;
   DM.Q1.Open;
   while not DM.Q1.EOF do
   begin
    eid:=DM.Q1.fieldbyname('idnsi_edizm').asinteger;
    ename:=trim(DM.Q1.fieldbyname('name').asstring);
    self.ComboBox1.Items.AddObject(ename,TObject(eid));
    dm.Q1.Next;
   end;
   dm.q1.Close;
  self.ComboBox1.ItemIndex:=0;
  end;
end;           

То есть в значении Item Хранится текстовое описание, а в Items.Objects айди.
Нужно выполнить поиск по айди и сделать данную строку активной.
PM MAIL   Вверх
northener
Дата 31.10.2011, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20
Цитата(bistropoke @  31.10.2011,  20:41 Найти цитируемый пост)
Нужно выполнить поиск по айди

IndexOfObject


--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
bistropoke
Дата 31.10.2011, 21:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 7
Регистрация: 26.10.2011

Репутация: нет
Всего: нет
сделал через

Код

if DM.MainConn.Connected = true then
      begin
      squery:='select * from type_params where idtype_params='+inttostr(self.id);
      DM.Q1.SQL.Clear;
      DM.Q1.SQL.text:=squery;
      DM.Q1.Open;
      dedizm:= DM.Q1.FieldByName('edizm').Asinteger;
      self.ComboBox1.itemindex:=self.ComboBox1.items.IndexOfObject(TObject(dedizm));
      DM.Q1.close;
      end;    


вроде работает
PM MAIL   Вверх
northener
Дата 31.10.2011, 23:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20
Цитата(bistropoke @  31.10.2011,  21:29 Найти цитируемый пост)
вроде работает 

А чего бы этому коду не работать?



--------------------
Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0694 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.