Delphi中如何动态的生成TQuery控件？

Question

各位大虾：　　我现在想利用代码动态的生成TQuery控件，这样可以灵活的向数据库表中插入记录？　　求教！

Answer 1

var
  tq: TQuery1;
begin
  tq := TQuery.Create(Self);
  tq.DatabaseName := Database1.DatabaseName;
  ...
  tq.Free;
end;

Answer 2

var
  tq: TQuery1;
begin
  try
  tq := TQuery.Create(nil);
  tq.DatabaseName := Database1.DatabaseName;
  ...
 finally
  tq.Free;
 end;
end;
发生异常tq也能释放，保证内存不泄漏

Answer 3

大哥：　　为什么定义的时候用TQuery1，而不是TQuery?　　我用的是TQuery，结果错误信息是：[Error] U_newbook.pas(53): Undeclared identifier: 'TQuery'　　请教！

Answer 4

在uses中加入dbvar Query1:TQuery;
begin
try
  query1:=TQuery.Create(self);
  With Query1 do
  Begin
    DatabaseName:='DBDEMOS';
    SessionName:=Session1.SessionName;
    ...
  End;
finally
  Query1.Free;
End;
End;

Answer 5

错误提示没有定义TQeruy是因为没有引用DB单元!