Delphi指针类型

不羁的心 提交于 2020-02-29 22:17:14

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

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.

 

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!