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

← →
AlexeyMir (2008-02-26 15:04) [0]

Подскажите, я создаю компонент 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:07) [1]

var
Query: TQuery;
...
Query := TQuery.Create
frDBDataSet1.DataSet := Query

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

← →
AlexeyMir (2008-02-26 15:13) [2]

Мне нужно 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;

← →
Palladin © (2008-02-26 15:14) [3]

> AlexeyMir (26.02.08 15:13) [2]

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

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

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

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

Прям эпидемия какая-то с этим with...

Компонент в run-time без выдачи ему имени Найти похожие ветки