procedure(我的分析,对吗?)


procedure AddThis(n : Integer); //过程1
var
  i : Integer; //第1个容器(var, 变数) i~
begin
  i := i + n;
end;
procedure TForm1.Button1Click(Sender: TObject); //过程2
var
  i : Integer; //第2个容器(var, 变数) i~
begin
  i := 2;
  AddThis(i);
  ShowMessage(IntToStr(i)); //实现 (2)
end;• 这两个”过程”(procedure)中都是有var(变数) i, 但它们是不相同的. 而是个别的; 也就是分成两个”容器”(var, 变数)施行个别处理.它的实行过程:procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  i := 2;
procedure AddThis(i := 2); //根据Button1Click过程(procedure)的变数(var) i 植入2;
等于procedure AddThis(n : integer); 
//AddThis(n := Button1Click过程的 i := 2)
var
 i : integer;
begin
  i := i + 2; //这个是AddThis 过程(procedure)的变数
(var) i; 而这个i没有任何参数, 所以没有植入和实行任何效果; 例子 i := 0 + 2; 
end;
  ShowMessage(IntToStr(i)); //这里的 i值从AddThis 引用过来, 所以显
示AddThis 里的参数成为实数, 而显示 (2).
end;