Показать сообщение отдельно
  #12  
Старый 22.03.2011, 10:54
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

кидаешь кверик (ADOQuery1 например) в нем запрос :
Код:
Select CityID,CityStr
from SprCity
order by CityStr

далее на onShow формы пишешь
Код:
ADOQuery1.active:=true;
comboboxCityID.clear;
comboboxCityStr.clear;
if not ADOQUERY1.isEmpty then begin
  ADOQUERY1.First;
  repeat
    comboboxCityID.items.add(Adoquery1.fieldbyname('CityID').asString;
    comboboxCityStr.items.add(Adoquery1.fieldbyname('CityStr').asString;
    ADOQUERY1.next;
  until ADOQUERY1.eof;
comboboxCityID.itemindex:=0;
comboboxCityStr.itemindex:=0;
Adoquery1.active:=false;
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием