11.2.pas

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

program Project1; 
{$APPTYPE CONSOLE} 
type 
Pint=^integer;   // 定义指针类型
Var
a:integer;
b:integer;
pt:Pint;    // 整形指针
p:pointer; // 无类型指针
begin  
a:=2;
b:=3;
pt:=@b;   // 整形指针指向整形数据
writeln('b=',pt^); 	      
    p:=@a;    // 无类型指针指向整形数据
// b:=p^; // 不可以直接赋值给变量
b:=integer(p^);// 无类型指针指向的内容给整形变量赋值
writeln('b=',b);	          
    pt:=p; // 指针间赋值
writeln('pt^:',pt^); 	     
readln;
end.