1. 如果我有個變數(eg. var a: integer), 我想做到如果我pass這個變數a到別的function abc 或procedure abc 後,在那個abc內改變其var a的數值,如果我這樣寫: Procedure AAA(); Var a: Integer; Begin a := 1; ChangeValue(a); ShowMessage(IntToStr(a)); <-------- value is 1 End; Procedure ABC(a: Integer); Begin a := a 1; End; 請問應該點做呢? 還有一個小問題,如果 procedure abc所接的不是integer,而是tedit,當我pass一個editbox入去時,它就能改變數值,請問何解呢?

Hi,BorlandUser: 1.function abc的參數宣告如下即可  

 function (var a:Integer) 

變數前面加var,代表你所謂的pass by reference,不加var,即 by value 2.如果傳入的是TEdit等,那麼加不加var都一樣.原因是VCL自TComponent以下,實際上都上指標.如下:

procedure CheckEditValue(Edit:TEdit);
begin
  Edit.Text:='ABC' Edit.Text;
end;