11.5.pas

来自「delphi renyuanguanlixinxioxitong」· PAS 代码 · 共 29 行

program Project1;
{$APPTYPE CONSOLE}
Type
  PInteger=^Integer;// 定义指针类型
procedure P1(var N:Integer);// 引用参数传递
begin
  N:=N+1;
end;
procedure P2(N:Integer);// 普通参数传递
begin
  N:=N+2;
end;
procedure P3(PT:PInteger); // 传递指针参数
begin
 PT^:=PT^+3;
end;
var
 i:Integer;
begin
 i:=1;
 P1(i); // 将i的值增加1
 Writeln('i:',i);
 P2(i); // 希望将i加2，但没有实现
 Writeln('i:',i);
 P3(@i);// 将I加3
 Writeln('i:',i);
 Readln;
end.