指针类型

指针声明

Type 
  TmingRi=^integer;

var
  s1.s2:^string;
  s3:string;
begin
  new(s1);
  new(s2);
  s1^:='MingRiSoft';
  s2^:='kaihongliu';
  s1:=s2；            //指针赋值给指针，更换钥齿
  s2^:='Welcome You !'；
  s3:='New Memory';
  s2:=@s3;           //获得变量的指针
                     //指针赋值给指针，更换钥齿
  s1^:=s2^:          //更换柜子里的东西
  s3:='Is right';
end;