小问题 Tmy_query = class(Tadoquery)

Question

我想写一个 Tmy_query = class(Tadoquery)
这个一创建Tmy_query的对象时就是连接上datamodule1.adoconnection1的
怎么实现？****************
constructor TMy_query.Create;
begin
//在这里写？
end;

Answer 1

意思是：如何写一个Tadoquery的子类，一创建就能连上adoconnection1

Answer 2

那它的create()参数至少要有一个Tadoconnection对象吧，否则constructor TMy_query.Create;
begin
//只有在这里指向Tadoconnection的全局变量了
end;

Answer 3

突然改变想法了，做成一个函数，能动态创建Tadoquery并连接上就行，帮忙写一下

Answer 4

function p1(): Tadoquery;
begin
result:=Tadoquery.create(adoconnection1);
end;