?

下面的單擊事件，將要調(diào)用一個以對象為參數(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

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

?

調(diào)用方法二：

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

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

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

?

調(diào)用方法三：

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

返回結(jié)果為：chen

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

?

調(diào)用方法四：

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

返回結(jié)果為：zhi

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