请教一个简单的问题，关于参数的问题。

[dust]

各位老大，
我想在函数开始记录一下信息，再退出后还原
执行这段代码后肯定出错。我不明白为什么我已经付给了你的对象，对原来对象的改变怎么会影响新的对象。谢谢
function TForm1.testobject(dbset: TAdoQuery): TAdoQuery;
var
temp: TAdoQuery ;
begin
temp:= TAdoQuery.Create(nil);
temp:=dbset;
dbset.Free;
showmessage(inttostr(temp.RecordCount )) ;
end;

[dust]

知道问题了，但是如何解决？

我使用复制指针，所以改变了原来参数，请问用什么方法，又传递了 对象参数，又不会改变原来的值，
请问如何copy 一个对象副本，而不是两个指针指向同一个地方。

[lxpbuaa]

temp不过是个指针，指向的实际对象是dbset。dbset.Free;将这个对象销毁了，所以showmessage这句出错。

function TForm1.testobject(dbset: TAdoQuery): TAdoQuery;
var
temp: TAdoQuery;
begin
temp:=dbset;
showmessage(inttostr(temp.RecordCount )) ; //或者直接showmessage(inttostr(dbset.RecordCount )) ;
end;
就可以了

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[fansnaf]

temp:=dbset;
这句有问题，
因为这里只是指针指向了原来的对象－－dataset，
你释放了这个adoquery，那么你创建的
temp就找不到了，出错！

[madyak]

function TForm1.testobject(dbset: TAdoQuery): TAdoQuery;
var
temp: TAdoQuery ;
begin
temp:= TAdoQuery.Create(nil);
temp.Assign(dbset);//这样试试看
dbset.Free;
showmessage(inttostr(temp.RecordCount )) ;
end;

[dust]

还有一个问题就是我传递进去的参数（dbset） 执行函数后改变了。我没有使用变参。为什么会改变？


我是新手。多多包含。。。

[DWGZ]

还有一个问题就是我传递进去的参数（dbset） 执行函数后改变了。我没有使用变参。为什么会改变？
因为你传递的是一个复制的指针， 它们都指向同样的地址

[dust]

这个问题主要是我对对象付值不太理解。
以及函数参数传递理解不够

[fansnaf]

对，揭帖吧，:)