Delphi 函數參數修飾中的var 、out和const


(1)var修飾符

添加var 是地址傳遞,會修改原有的變量

var

s: string;

begin

S := 'Hello';

ChangeSVar(s);

ShowMessage(S);

end;

// ChangeSVar 定義

procedure TForm1.ChangeSVar(var A: string);

begin

A := A + 'World';

end;

以上會輸出Hello World,因為是傳址,修改的是原來的A

(2)無任何修飾符

var

s: string;

begin

S := 'Hello';

ChangeS(s);

ShowMessage(S);

end;

// ChangeS定義

procedure TForm1.ChangeS(A: string);

begin

A := A + 'World';

end;

以上會輸出Hello,因為方法ChangeS其實是創建了一個新的A,而輸出的還是原來的A,值並沒有改變

(3)out修飾符

var

s: string;

begin

S := 'Hello';

ChangeSOut(s);// 此時S的值是'Hello,'而非'Hello,World'!,在過程Hello中的S的原始值被丟棄了

ShowMessage(S);

end;

// ChangeSOut定義

procedure TForm1.ChangeSOut(out A: string);

begin

A := A + 'World';

end;

以上會輸出World,out僅僅接受返回的值,對out的任何輸入都會被忽略。同時out傳遞給過程的實際參數不必進行初始化,比如對ChangeSOut的調用:

Var

Tmp: string;

Begin

ChangeSOut(Tmp);//編譯也可以通過

End;

(4)Const修飾符

Const修飾的參數傳入之后不允許修改

如果在過程中修改參數會報錯,比如:

Procedure xxxx.TestConst(const A: String);

Begin

A := ’ss’; //企圖修改const修改的參數,會報錯

End;


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM