Delphi指针类型

首先新建一个控制台项目：练习下指针类型的数据赋值和使用

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  type
    pint=^Integer;//定义指针类型
  var
    a:Integer;
    b:Integer;
    c:Integer;
    pt:pint;//整形指针
    p:Pointer;//无类型指针
begin
  a:=2;
  b:=3;
  pt:=@b;//整形指针指向整形数据
  Writeln('pt=', pt^);

  p:=@a;//无类型指针指向整形数据
  //Writeln('p=', p^);错误，无类型指针不能直接使用
  Writeln('p=', Integer(p^));

  //c:=p^;错误，无类型指针不能直接赋值给其他变量
  c:=Integer(p^);
  Writeln('c=', c);

  pt:=p;//指针间赋值，可以不用类型转换
  Writeln('pt=', pt^);

  Readln;
end.