procedure tform1.b(var a:tedit);//procedure tform1.b( a:tedit);看不出加了VAR和不加VAR有什么区别

Question

procedure tform1.b(var a:tedit);//procedure tform1.b( a:tedit);
begin                         看不出加了VAR和不加VAR有什么区别什                                                  
   a.Color :=clred;
end;

Answer 1

procedure a1( i:integer);
{
  i:=1;
}procedure a2(var i:integer);
{
  i:=1;
}
//调用-----------
  x,y:integer;
  x:=0;  y:=0;
begin
  a1(x);
  a2(y);
  //显示x,y,发现x=0,y=1,这就是区别！
end;

Answer 2

procedure a1( i:integer);
{
  i:=1;
}procedure a2(var i:integer);
{
  i:=1;
}
//调用-----------
  x,y:integer;
begin
  x:=0;  y:=0;
  a1(x);
  a2(y);
  //显示x,y,发现x=0,y=1,这就是区别！
end;

Answer 3

前面加var 的变量的作用域>没有var 的变量的作用域。