关于Delphi过程或者函数的参数时，有var与无var的区别

在网上看到这样的代码unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TTest = class public Value: Integer; end; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } procedure Test1(x: Integer); procedure Test2(var x: Integer); procedure Test3(T: TTest); procedure Test4(var T: TTest); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Test1(x: Integer); begin x := 5; ShowMessage('In Test1:'+IntToStr(x)); end; procedure TForm1.Test2(var x: Integer); begin x := 5; ShowMessage('In Test2:'+IntToStr(x)); end; procedure TForm1.Test3(T: TTest); begin T.Value := 5; ShowMessage('In Test3:'+IntToStr(T.Value)); end; procedure TForm1.Test4(var T: TTest); begin T.Value := 5; ShowMessage('In Test4:'+IntToStr(T.Value)); end; procedure TForm1.Button1Click(Sender: TObject); var x: Integer; tt: TTest; begin tt := TTest.Create; x := 10; ShowMessage('Before Test1:'+IntToStr(x)); Test1(x); ShowMessage('After Test1:'+IntToStr(x)); //语句1 x := 10; ShowMessage('Befor Test2:'+IntToStr(x)); Test2(x); ShowMessage('After Test2:'+IntToStr(x)); //语句2 tt.Value := 10; ShowMessage('Before Test3:'+IntToStr(tt.Value)); Test3(tt); ShowMessage('After Test3:'+IntToStr(tt.Value)); //语句3 tt.Value := 10; ShowMessage('Before Test4:'+IntToStr(tt.Value)); Test4(tt); ShowMessage('After Test4:'+IntToStr(tt.Value)); //语句4 end; end.

语句3和语句4显示的结果为什么与语句1和语句2显示的结果不一致？   
  Test(var   T:   TTest)和Test(T:   TTest)有什么区别？   
  Test(var   T:   TTest)和Test(T:   TTest)哪一个对系统的开销小？   
  为什么基本数据类型和类的思想不一致？   
  -------------------------------------------------   
  与之对应的C++的代码如下   
  -------------------------------------------------   
#include <iostream.h> class Test { public: int Value; }; void Test1(Test t) { t.Value = 5; cout << "In Test1:"<<t.Value<<endl; } void Test2(Test &t) { t.Value = 5; cout << "In Test2:" << t.Value << endl; } void Test3(Test *t) { t->Value = 5; cout << "In Test3:" << t->Value << endl; } int main() { Test T; T.Value = 10; cout << "Before Test1:" << T.Value << endl; Test1(T); cout << "After Test1:" << T.Value << endl << endl; T.Value = 10; cout << "Before Test2:" << T.Value << endl; Test2(T); cout << "After Test2:" << T.Value << endl << endl; T.Value = 10; cout << "Before Test3:" << T.Value << endl; Test3(&T); cout << "After Test3:" << T.Value << endl << endl; return 0; }

简单来说，有var表示允许你对这个数据更改，没var则不能更改。


但对于(Object:   TClass)和(var   Object:   TClass)来说，两者都可以对数据进行修改，上面的例子说明了这一点。

对变量而言，其存在于栈中，不用var相当于在栈复制一个副本；而对象则被创建于堆中，我想其不能在参数传递时自动再复制一个自己而无论有无var始终当引用方式来调用，即只传指针过去

1   (Object:   TClass)和2   (var   Object:   TClass)   
        
            1中是按值进行传递的，形参与实参就相当于两个变量。2中是按引用传递的，形参与实参就相当于一个变量，两个指针，一个指针是另一个指针的副本，但是它们所指向的内存地址都是相同的。   
   
      1     function   Fa(value:integer):Integer;   
                    begin   
                          value:=value+1;   
                          result:=value;   
                      end;   
      2     function   Fb(var   value:Integer):integer;   
                      begin   
                            value:=value+1;   
                            result:=value;   
                        end;   
        var   
              Fa,a,Fb,b:Integer;   
                  begin   
                    a:=3;   
                    Fa:=fa(a);       //这时   fa等于4，a等于3   
                    b:=3;   
                    fb:=fb(b);       //这时   fb等于4,b等于4            
          end;

或者换句话说，有var是传地址，没有var是传参数。