如何动态创建ADOQUERY？

[grj]

请问如何创建ADOQUERY，并释放该资源？多给些程序段！！！

[王集鹄]

和创建其他控件是一样的道理
with TADOQuery.Create(Self) do try
{ 连接字符串或者连接控件赋值 }
SQL.Text := 'select count(*) from table1';
Open;
ShowMessage(Fields[0].AsString);
Close;
finally
Free;
end;

[li_zhifu]

with TADOQuery.Create(Self) do
begin
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\lzf\My Documents\db2.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False';
SQL.Add('Select * From Table1');
Active:=True;
While Not Eof do
begin
ComboBox1.Items.Add(Fields[0].AsString);
Next;
end;
Active:=False;
Free;
end;

[grj]

adoq_pubf1: TADOQuery;
begin
adoq_pubf1:=TADOQuery.Create(self);

报错：
[Error] pub.pas(24): Not enough actual parameters
[Error] pub.pas(47): Missing operator or semicolon
为什么？？？？

[王集鹄]

//Self如果不是TComponent类型就用
adoq_pubf1 := TADOQuery.Create(Application);
//如果还有错，就看看你完成点的代码

[haishen]

直接Adoq_Pubf1 := TADOQuery.Create(Nil); 就可以了，应该没问题的。

[grj]

我改成APPLICATION依然报错：
[Error] pub.pas(24): Undeclared identifier: 'application'
以下是我代码段：
function f_access(uid :string ; powercode :string):boolean;
var
adoq_pubf1: TADOQuery;
begin
adoq_pubf1:=TADOQuery.Create(application);
adoq_pubf1.Destroy;
end.
简单的可怕，但还是错！！！！！！！！！为什么？？？？？？？？

[grj]

TADOQuery.Create(Nil); 这个CREATE的参数到底该是什么？？为什么NIL就可以通过了？另：TCOMPONENT是什么类啊？？？

[grj]

还有如何释放该实例，adoq_pubf1.Destroy就行了吗？？

[li_zhifu]

function f_access(uid :string ; powercode :string):boolean;
这个方法并非是Form的组成方法，所以也就没有Self
function TForm1.f_access(uid :string ; powercode :string):boolean;
var adoq_pubf1:TADOQuery;
begin
ADOQ_pubf1:=TADOQuery.Create(Self);//这里Self指TForm1

[li_zhifu]

adoq_pubf1.Free;

[grj]

在窗口间如何传递参数，有哪几种方式？？最后一个问题！！

[li_zhifu]

在其中一Unit的implementation之前定义变量
var
Form1: TForm1;
pub_var:String;

implementation

...

...
pub_var:='1';
Form2.ShowModa;

...

Unit2

...

implementation

uses Unit1;
...
if pub_var='1' then

[risesoft]

你20分也太...
了吧：（