Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заполнение TStrings из TQuery / 9 сообщений из 9, страница 1 из 1
26.05.2003, 11:04
    #32168297
AndrewY
AndrewY
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
Существует ли способ одним махом заполнить TStrings текстовыми значениями какого-либо поля из TQuery, не гоняя при этом цикл до последней записи и добавляя в TStrings текстовое значение каждой записи ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:12
    #32168307
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
А кто тебе сказал, что в TQuery содержатся ВСЕ строки select`а?

----------------------------------------------------------
удивился?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:15
    #32168312
AndrewY
AndrewY
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
to eNose

Нисколько не удивился и вопрос не снимаю !
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:19
    #32168322
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
Вообще-то, TStrings - абстрактный класс. А зачем тебе в TStringList записи из TQuery перегонять?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:23
    #32168328
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
DataSource1.DataSet.GetFieldData

только непонятно, зачем так делать, если неизвестно - все данные сервер вернул или часть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:24
    #32168332
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
DataSet.GetFieldData - вот так правильнее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 11:26
    #32168336
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
2 eNose

DataSet.GetFieldData

Так ты получишь одно значение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 12:19
    #32168403
AndrewY
AndrewY
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
Объясняю:
Программа содержит раздел "Ввод данных".
В окне ввода несколько полей, кроме самого первого все Enable=False.
По мере ввода последующие поля открываются один за другим.
На каком-то этапе возникает необходимость ввода одного из нескольких определенных значений, причем количество этих значений 5-10 (есть основания полагать, что при активизации TQuery НД будет выбран полностью). Список формируется с учетом информации предыдущих полей ввода (заранее ввести список фиксированных значений не получается).

З.Ы.
Конечно нет проблем сделать процедуру заполняющую TComboBox.Items, но о других возможностях тоже хочется знать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.05.2003, 12:38
    #32168426
pkarklin
pkarklin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение TStrings из TQuery
Ситуация стандартная до безобразия. А ты гемороем поимел. Используй TDBLookupComboBox (у которого список заполняется автоматически). А чтоб все записи загружались в локальный курсор повесь обработчик события TQuery.OnAfterOpen, где напиши

Код: plaintext
(Sender as TBDEDataSet).FetchAll;


И будет тебе счастье.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заполнение TStrings из TQuery / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]