- 指针变量定义:
type
st20=string[20];
var
vpi:^integer; //定义一个指向整型的指针变量
vpst20:^st20 ; //定义一个指向自定义类型st20的指针变量
vp:POINTER; //定义一个指向POINTER类型(系统预定义的无类型指针)的指针变量。
v1,v2,v3:integer;
- 指针变量的赋值:
v1:=10; v2:=100; v3:=1000;
st:st[20]=‘hello’;
vp:=nil; // nil不指向任何变量的地址
vpi:=@v1 ; // vpi指向v1,@是地址提取符
vpi:=addr(v1) ; // 同上
vp:=@st;
- 通过指针变量使用变量:
writeln(‘v1=’,v1); //
writeln(‘v1=’,vpi^) ; // 结果同上
writeln(‘st=’,st);
writeln(‘st=’,st20(vp^)); // 结果同上