Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2016, 22:38   #1
dimkoss
Пользователь
 
Регистрация: 06.02.2016
Сообщений: 35
По умолчанию Combobox значения

Есть sql запросы, которые используют значения из комбобокса, можно сделать, чтобы combobox показывал одно значение, на экран, а другое было скрыто и использовать его в качестве данных?
Например:
Сортировка по сумме вместо Sum(Оплачено_Заказ)

Думаю, сделать через
if combobox.text = Сортировка по сумме then
variable := Sum(Оплачено_Заказ)
и использовать variable для sql но может быть есть более простое и наглядное решение?
dimkoss вне форума Ответить с цитированием
Старый 17.12.2016, 00:49   #2
kropotkina-alice
Форумчанин
 
Аватар для kropotkina-alice
 
Регистрация: 27.10.2014
Сообщений: 594
По умолчанию

У ComboBox есть свойство ItemIndex...
Намек понят?
kropotkina-alice вне форума Ответить с цитированием
Старый 17.12.2016, 01:28   #3
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

2 dimkoss
Если мой телепатор настроен правильно, то у класса TStrings есть свойство Objects.
Намек понят?
northener вне форума Ответить с цитированием
Старый 17.12.2016, 06:20   #4
dimkoss
Пользователь
 
Регистрация: 06.02.2016
Сообщений: 35
По умолчанию

Цитата:
Сообщение от kropotkina-alice Посмотреть сообщение
У ComboBox есть свойство ItemIndex...
Намек понят?
почти тоже самое, разве, что case вместо if использовать.
dimkoss вне форума Ответить с цитированием
Старый 17.12.2016, 06:21   #5
dimkoss
Пользователь
 
Регистрация: 06.02.2016
Сообщений: 35
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
2 dimkoss
Если мой телепатор настроен правильно, то у класса TStrings есть свойство Objects.
Намек понят?
Подробнее напишите?!
dimkoss вне форума Ответить с цитированием
Старый 18.12.2016, 03:19   #6
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Не знаю как "подробнее" написать. Суть в том что класс TStrings способен хранить в себе две сущности. Саму строку и ссылку на ещё что-то. Ссылка "на ещё что-то" хранится в свойстве TStrings.Objects.
northener вне форума Ответить с цитированием
Старый 18.12.2016, 09:29   #7
le7o
Форумчанин
 
Регистрация: 19.05.2011
Сообщений: 116
По умолчанию

Если подробнее как то так...

Заполнение:
Код:
procedure TForm1.FullList;
var
  Query : TFDQuery;
begin
  Query := TFDQuery.Create(nil);
  Query.Connection := DM.FDConnection1;

  Query.Close;
  Query.SQL.Text := 'SELECT id, value FROM table';
  Query.Open;
	Query.First;
		while not Query.Eof do
			begin
				combobox1.Items.AddObject(Query.FieldByName('value').AsString, Pointer(Query.FieldByName('id').AsInteger));
				Query.Next;
			end;
  FreeAndNil(Query);
end;
Использование:
Код:
value := Integer(combobox1.Items.Objects[combobox1.ItemIndex])
le7o вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
значения столбца в combobox shalun43911 Компоненты Delphi 2 04.05.2014 19:53
Выбор значения ComboBox skafiend Microsoft Office Access 1 17.05.2011 11:07
Задать значения в ComboBox gagarin0 Помощь студентам 6 23.10.2010 19:03
повторяющиеся значения в combobox ondar Microsoft Office Excel 5 07.10.2010 17:47
Значения из ShellListView в ComboBox artemavd Общие вопросы Delphi 2 15.06.2010 15:54