?

下面的單擊事件，將要調用一個以對象為參數的方法，并將結果顯示出來。

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’