指针声明
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;