powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заполнение TStrings из TQuery
9 сообщений из 9, страница 1 из 1
Заполнение TStrings из TQuery
    #32168297
AndrewY
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Существует ли способ одним махом заполнить TStrings текстовыми значениями какого-либо поля из TQuery, не гоняя при этом цикл до последней записи и добавляя в TStrings текстовое значение каждой записи ?
...
Рейтинг: 0 / 0
Заполнение TStrings из TQuery
    #32168307
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
[не активирован]
[не одобрен]
А кто тебе сказал, что в TQuery содержатся ВСЕ строки select`а?

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

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

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

DataSet.GetFieldData

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

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

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


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


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