?

下面的單擊事件，將要調(diào)用一個(gè)以對(duì)象為參數(shù)的方法，并將結(jié)果顯示出來。

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;

?

調(diào)用方法一：

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

返回結(jié)果為：chen zhi

分析：此時(shí)傳遞的AStrings 為lStrings對(duì)象的對(duì)象引用副本，即也指向?qū)ο髄Strings，所以當(dāng)執(zhí)行AStrings. Add('zhi');時(shí)操作為lStrings對(duì)象添加‘zhi’。

?

調(diào)用方法二：

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

返回結(jié)果為：chen zhi

分析：此時(shí)傳遞的AStrings 為lStrings對(duì)象的對(duì)象引用，當(dāng)執(zhí)行AStrings. Add('zhi');時(shí)操作的對(duì)象為lStrings對(duì)象。

?

調(diào)用方法三：

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

返回結(jié)果為：chen

分析：此時(shí)傳遞的AStrings 為lStrings對(duì)象引用的副本，當(dāng)方法中執(zhí)行AStrings:= TStringList.Create;又將對(duì)象引用副本 的引用指向了此時(shí)新建的一個(gè)對(duì)象，所以此時(shí)對(duì)AStrings的任何操作已經(jīng)不會(huì)影響lStrings對(duì)象。

?

調(diào)用方法四：

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

返回結(jié)果為：zhi

分析：此時(shí)傳遞的AStrings 為lStrings對(duì)象的對(duì)象引用，當(dāng)方法中執(zhí)行AStrings:= TStringList.Create;時(shí)， lStrings這個(gè)對(duì)象引用指向了新建的AStrings對(duì)象。所以，lString的值為’Zhi’