delphi中的函数或者过程形参里出现var是什么意义？

简单的说，就是如果你在这个过程里面修改了这个Message，那么调用这个Message值就会影响到调用这个过程时输入的变量比如

procedure asc(var i:integer);
begin
i:=1;
end;

a:=0;
asc(a);
if a=1 then ShowMessage('被改成1了！')；

var 的意思是，函数里面Message变量的地址和传进去的值的内存地址是同一个

比如
abc(Strinfo)

这样一个调用，那么在abc执行时，对Myinfo的改变，也会导致Strinfo这个变量的改变

var后面的参数可以在这个过程或函数中修改其值并自动传回
基本上就是说这个算是引用的传递
1
function square1(number:integer):integer;
begin
number:=number*number;
result:=number;
end;
procedure TForm1.Button1Click(Sender: TObject);
var num1,num2:integer;
begin
num1:=10;
num2:=square1(num1);
edit1.text:=inttostr(num1);
edit2.text:=inttostr(num2);
end;

end.
2
function square1(var number:integer):integer;
begin
number:=number*number;
result:=number;
end;
procedure TForm1.Button1Click(Sender: TObject);
var num1,num2:in