Найден 1 результат
- 07 апр 2006, 13:37
- Форум: Вопросы создания клиентских и серверных приложений
- Тема: Подскажите как правильно передать значение в запрос
- Ответы: 1
- Просмотры: 2904
Подскажите как правильно передать значение в запрос
Текст function GetID(ComboBox: TComboBox): integer; begin Result := -1; if ComboBox.ItemIndex = -1 then Exit; Result := Integer(ComboBox.Items.Objects[ComboBox.ItemIndex]); end; procedure LoadComboBox(ComboBox: TComboBox; Data: TIBSQL); begin with ComboBox, Data do begin Transaction.StartTransaction...