[Страдалецъ]

Ну плин вы даете!
Судя по прошлым постам у вас на форме есть компонент ADOQuery1.
У него есть в свою очередь перечень полей.
У каждого поля есть событие OnGetText
Вот в этом событии вам и надо добавить строчку:

Код:

Text := Sender.AsString;

Для оптимизации кода, можете сделать единое событие для всех мемо полей.

ПС: Если у вас текст запроса для Query1 постоянно меняется и набор полей соответственно тоже меняется, то событие на нужное поле вам уже придется делать динамически. Если же набор полей неизменен, то можно в Query1 прямо в дизайнере написать запрос с перечнем этих полей, тем самым заставив его создать нужные вам поля с событиями.

[Вовайн]

Сообщение от NumLock

у TObject нет свойства AsString

На TField ругается. Что же должно быть там?

[Вовайн]

Сообщение от Страдалецъ

Ну плин вы даете!
Судя по прошлым постам у вас на форме есть компонент ADOQuery1.
У него есть в свою очередь перечень полей.
У каждого поля есть событие OnGetText
Вот в этом событии вам и надо добавить строчку:

Код:

Text := Sender.AsString;

Для оптимизации кода, можете сделать единое событие для всех мемо полей.

ПС: Если у вас текст запроса для Query1 постоянно меняется и набор полей соответственно тоже меняется, то событие на нужное поле вам уже придется делать динамически. Если же набор полей неизменен, то можно в Query1 прямо в дизайнере написать запрос с перечнем этих полей, тем самым заставив его создать нужные вам поля с событиями.

Не понимать Можно нагляднее?

[Страдалецъ]

Тяжело в деревне без нагана.
Ладно пойдем другим путем. В запросе который вы формируете:

Код:

Select [Название], [Цена], [Количество] FROM ...

поля [Название], [Цена], [Количество] постоянны?
Если это так, то вставьте в свойство AdoQuery1.SQL текст запроса:

Код:

Select [Название], [Цена], [Количество] FROM Table1

где Table1 имя вашей таблицы. И в дизайнере активируйте его.
Цель этой операции получить список полей для AdoQuery1. Их можно увидеть вызвав свойства для иконки AdoQuery1 в разделе Fields editor...

[Вовайн]

Сообщение от Страдалецъ

Тяжело в деревне без нагана.
Ладно пойдем другим путем. В запросе который вы формируете:

Код:

Select [Название], [Цена], [Количество] FROM ...

поля [Название], [Цена], [Количество] постоянны?
Если это так, то вставьте в свойство AdoQuery1.SQL текст запроса:

Код:

Select [Название], [Цена], [Количество] FROM Table1

где Table1 имя вашей таблицы. И в дизайнере активируйте его.
Цель этой операции получить список полей для AdoQuery1. Их можно увидеть вызвав свойства для иконки AdoQuery1 в разделе Fields editor...

Поля да постоянные, но у меня ищет по всем таблицам, так что имя таблицы прописать не получиться.

[Страдалецъ]

Да и бог с ним с именем таблицы. Главное, что имена полей одинаковы и следовательно событие OnGetText для полей тоже будет одинаково, независимо от источника.

[Вовайн]

Сообщение от Страдалецъ

Да и бог с ним с именем таблицы. Главное, что имена полей одинаковы и следовательно событие OnGetText для полей тоже будет одинаково, независимо от источника.

У меня продолжает работать норм при любых обстоятельствах. Вот на виртуалке проверяю

[Страдалецъ]

Вот вам демка. Думаю этого хватит для понимания.

[Вовайн]

Сообщение от Страдалецъ

Вот вам демка. Думаю этого хватит для понимания.

Не компилит ADOQuery1MemoField1 не верный идентификатор

[Страдалецъ]

Это еще что за приколы? У меня все нормально собирается и работает.

[Вовайн]

Сообщение от Страдалецъ

Это еще что за приколы? У меня все нормально собирается и работает.

Delphi 7 lite стоит не знаю

[Страдалецъ]

У вас Delphi7 я так понял? Я это собирал на D2010. Ну не ставить же семерку для этой ерунды. Есть у кого D7? Посмотрите, что там не так срабатывает.

[Страдалецъ]

О! У меня же машинка виртуальная есть с установленой дельфой7. Ща глянем.

[Bargest]

Мда. Оказывается, есть особый тип извращенцев, которые пишут для Win 8.1 x64 в среде Delphi 7 2002 года выпуска.
Вы бы поставили чего поновее, проблем было бы меньше.

[Страдалецъ]

Тэкс, понятно. Не знает D7 еще ничего о WideString. Не беда. Держите для D7 вариант.