Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как обьявить поле програмно ? [D6, IB6.x]


Dmitriy O. ©   (2004-08-16 11:26:00) 

Во время разработки приложения поле обьявляется очень легко по правой кнопке мыши "добавить поля" как такую фишку организовать програмно ?. Есть такой код
query.SQL.Clear;
query.SQL.Add('select distinct NOMZAV from zaiav where N>=(select max(n)-50 from zaiav)');
query.Prepare;
query.Open;
Потом результаты выборки надо пернести в контрол
mrform.dzaiav.Items.Clear;
while not data.Query.Eof do begin
mrform.Dzaiav.Items.Add(data.querynomzav.asstring);
data.query.Next;
end;

Но естественно если поле заранее не обьявленно (NOMZAV) то компилятор ругается.
Так вот как обьявить это поле в коде во время выполнения проги ?


Dmitriy O.   (2004-08-16 11:35:00) [1]


> ловьев ©   (16.08.04 11:31) [2]

Мда а ведь помнил когдато но забыл. Больше спасибо еще раз !


Dmitriy O.   (2004-08-16 11:33:00) [2]


> Соловьев ©   (16.08.04 11:30) [1]

Большое спасибо ! "Все гениальное просто" (с) не мое


Соловьев   (2004-08-16 11:31:00) [3]

FieldByName('NOMZAV').AsString;


Соловьев   (2004-08-16 11:30:00) [4]


> mrform.Dzaiav.Items.Add(data.querynomzav.asstring);

mrform.Dzaiav.Items.Add(data.query.fields[0].asstring);


Наверх

Титульная страница Поиск, карта сайта Написать письмо