函数能返回一个ADOQUERY吗？(50分)

S

shephard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

我想写一个函数，根据查询的字段，已经字段的值，返回值是adoquery。

不知道该怎么写，请教！

 

C

coldew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #2

function fun_name(fieldname:String;fieldValue:Variant):TADOQuery
begin
Result:=TADOQuery.Create(Self);
with Result do
Connection:=ADOConnection...
SQL.Clear;
SQL.Add(strSQL); //strSQL is you SQL String
Open;
Locate(FieldName,FieldValue,[]);
end;
end;

不知道行不行？

 

A

Adnil

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #3

最好不要用返回某个对象，而是将对象作为参数传入，类似于
procedure fun_name(fieldname:String;fieldValue:Variant; Query:TADOQuery);
begin
Assert(Assigned(Query));
.....
end;

这样能做到对象的创建和释放在一个模块内，保证不出错。

 

S

shephard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #4

请教Assert(Assigned(Query));是什么意思？

 

S

shephard

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-12

• #5

多人接受答案了。