引言: function DoLogin(db:TDataBase; SecName: string; var UserName: string; var Password: string): boolean; 與 function DoLogin(db:TDataBase; SecName: string;UserName: string; Password: string): boolean; 有什麼不同?

procedure CallByAddress(var UserName: String);
begin
  UserName := 'B';
end;
procedure CallByValue(UserName: String);
begin
  UserName := 'B';
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  aUserName: String;
begin
  aUserName := 'A';
  CallByAddress(aUserName);
  ShowMessage('傳入的值為：A' #13 'CallByAddress後值為' aUserName);
  aUserName := 'A';
  CallByValue(aUserName);
  ShowMessage('傳入的值為：A' #13 'CallByValue後的值為' aUserName);
end;

    function DoubleByValue(X: Integer): Integer;     // X is a value parameter    begin
  X := X * 2;
  Result := X;
end;    function DoubleByRef(var X: Integer): Integer;   // X is a variable parameter    begin
  X := X * 2;
  Result := X;
end;

    var      I, J, V, W: Integer;
begin
  I := 4;
  V := 4;
  J := DoubleByValue(I);   // J = 8, I = 4
  W := DoubleByRef(V);     // W = 8, V = 8
end;

引言:

引言: function DoLogin(db:TDataBase; SecName: string; var UserName: string; var Password: string): boolean; 與 function DoLogin(db:TDataBase; SecName: string;UserName: string; Password: string): boolean; 有什麼不同?

有加Var的參數指傳址(call by address),沒有加Var的參數指傳值(call by value) 差異在那? [理論] call by address：是將位址傳至function運算。也就是呼叫者與被呼叫者擁有相同的一份位址，也就是一起擁有該值。被呼叫者將UserName的值改變後，其呼叫者的值也跟著一起改變。 call by value：是將值傳入function運算，也就是呼叫者與被呼叫者各自擁有一份值。以UserName為例，被呼叫者將UserName的值改變後，並不影嚮呼叫者的值。 [實作] 1 New Application 2 放一個Button 3 直接將程式寫在implementation底下即可：

procedure CallByAddress(var UserName: String);
begin
  UserName := 'B';
end;
procedure CallByValue(UserName: String);
begin
  UserName := 'B';
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  aUserName: String;
begin
  aUserName := 'A';
  CallByAddress(aUserName);
  ShowMessage('傳入的值為：A' #13 'CallByAddress後值為' aUserName);
  aUserName := 'A';
  CallByValue(aUserName);
  ShowMessage('傳入的值為：A' #13 'CallByValue後的值為' aUserName);
end;

執行完後，應該看的出差異性吧! ~小弟淺見，參考看看~

引言: 如何判斷用function或procedure.因用call by address的procedure同樣 可傳回值與function同

引言:

引言: 如何判斷用function或procedure.因用call by address的procedure同樣 可傳回值與function同

call by Reference 的procedure不算是回傳值，只是他們的變數佔相同的位置。 只有在一個情況下call by Reference 的procedure與function的作用相同，就是您的function的回傳值就是傳入值，這樣才有可能call by Reference 的procedure與function的作用相同，但是大部份的function並不是都將傳入值當成回傳值。 所以一般而言在Delphi中： 有回傳值都用function 沒有回傳值都用procedure ~小弟淺見，參考看看~

引言: 我把上例procedure改成function結果還是一樣 可否舉例(function並不是都將傳入值當成回傳值) ..thank!!!

引言: 我把上例procedure改成function結果還是一樣 可否舉例(function並不是都將傳入值當成回傳值) ..thank!!!