Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Компонент в run-time без выдачи ему имени [D5]

AlexeyMir © (2008-02-26 15:04:00)
Подскажите, я создаю компонент TQuery в run-time без выдачи ему имени, как присвоить свойству другого компонента соданному в design-time.
Если бы оба компонента создавались в дизайнере то было бы так: frDBDataSet1.DataSet:=Query1

А как написать следующее?
with TQuery.Create(nil) do
try
Database:=IBDatabase1;
Sql.Text := 'select * from table1';
ExecQuery;
id := Fields[0].AsInteger;
frDBDataSet1.DataSet:=?????;
frReport1.PrintPreparedReport('',1)
finally
Free;
end;

Плохиш (2008-02-26 15:18:00) [1]
Прям эпидемия какая-то с этим with...

Сергей М. (2008-02-26 15:15:00) [2]

> Мне нужно Query создать в процессе работы приложения

А иначе, кроме как в ран-тайм, его создать и нельзя.

Ты вообще в [1] вник ?

Palladin (2008-02-26 15:14:00) [3]

> AlexeyMir (26.02.08 15:13) [2]

тебе уже сказали как... переменную объяви, нечего с With баловаться

AlexeyMir (2008-02-26 15:13:00) [4]
Мне нужно Query создать в процессе работы приложения.

with TQuery.Create(nil) do
try
Database:=IBDatabase1;
Sql.Text := 'select * from table1';
ExecQuery;
id := Fields[0].AsInteger;
frDBDataSet1.DataSet:=?????????????;
frReport1.PrintPreparedReport('',1)
finally
Free;
end;

Джо (2008-02-26 15:07:00) [5]
var
Query: TQuery;
...
Query := TQuery.Create
frDBDataSet1.DataSet := Query

в чем проблема-то?

Наверх

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