http://blog.csdn.net/diligentcatrich/article/details/5500739

Delphi 中将对象作为参数传递的使用

标签： delphifunction
2010-04-19 08:06 938人阅读 评论(0) 收藏 举报
 分类：
 
Delphi 中将对象作为参数传递的使用 举例分析
2009-07-24 13:40

 

 

下面的单击事件，将要调用一个以对象为参数的方法，并将结果显示出来。

procedure TForm1.btn1Click(Sender: TObject);
var
lStrings: TStrings;
begin
lStrings:= TStringList.Create;
try
    lStrings.Add('chen');
    GetOperatorAllDeptIDs(lStrings);
    ShowMessage(lStrings.Text);
finally
    lStrings.Free;
end;

 

调用方法一：

function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
//注释 AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;

返回结果为：chen zhi

分析：此时传递的AStrings 为lStrings对象的对象引用副本，即也指向对象lStrings，所以当执行AStrings. Add('zhi');时操作为lStrings对象添加‘zhi’。

 

调用方法二：

function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
//注释 AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;

返回结果为：chen zhi

分析：此时传递的AStrings 为lStrings对象的对象引用，当执行AStrings. Add('zhi');时操作的对象为lStrings对象。

 

调用方法三：

function GetOperatorAllDeptIDs( AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;

返回结果为：chen

分析：此时传递的AStrings 为lStrings对象引用的副本，当方法中执行AStrings:= TStringList.Create;又将对象引用副本 的引用指向了此时新建的一个对象，所以此时对AStrings的任何操作已经不会影响lStrings对象。

 

调用方法四：

function GetOperatorAllDeptIDs( var AStrings: TStrings):String;
begin
AStrings:= TStringList.Create;
AStrings. Add('zhi');
end;

返回结果为：zhi

分析：此时传递的AStrings 为lStrings对象的对象引用，当方法中执行AStrings:= TStringList.Create;时， lStrings这个对象引用指向了新建的AStrings对象。所以，lString的值为’Zhi’