新手求教 在函数中创建对象

[Brradish]

为了避便代码重复 搞了个函数

procedure DoSql(sql:string;DS: TADOQuery);
begin
DS := TADOQuery.Create(nil);
DS.Close;
DS.Connection := DBConnect;
DS.sql.Clear;
DS.sql.Add(sql);
DS.Open;
end;

调用时
var QueryTemp:TADOQuery;

try
DoSQL(sql,QueryTemp);
// QueryTemp.DoSomething;
finally
freeandnil(QueryTemp);
end;

可是报内存错误.... 求解~~~ Create不是在堆上分配内存么?为什么离开函数后还不可以访问了...

[Oraclers]

你这个可以改成
procedure DoSQL(SQL:string;var DS:TADOQuery);
这样才是传参数地址，退出过程后才能调用。
或者：（最好是这样）
procedure DoSQL(SQL :string;DS:TADOQuery);
......

var QueryTemp :TADOQuery;
QueryTemp := TADOQuery.Create(nil);
try
DoSQL(SQL,QueryTemp);
......
finally
FreeAndNil(QueryTemp)
end;

[Brradish]

谢 本以为delphi的Class类型应该是引用传递的..... 不知道还得显式声明引用....

[gzhhc]

学习了。

[zhaohuateng]

不明白你为啥还在调用时
var QueryTemp:TADOQuery;

函数里直接定义这样一个局部变量
引用时直接DoSQL(sql)就行了。