Delphi下使用指针的简单总结

关注

转载最新推荐文章于 2026-09-04 14:57:30 发布 572 阅读 AI 写同款· GEO 优化 ›

【Delphi 基础知识 16】指针和指针类型 Delphi 是一种基于 Object Pascal 编程语言的集成开发环境（IDE），它支持面向对象编程和指针的使用。在 Delphi 中，指针是一种强大的工具，用于直接操作内存地址，但同时也需要小心使用以避免出现内存泄漏和访问非法内存的问题。阅读详情

Delphi下使用指针的简单总结 2007-05-27 16:21:08

标签： Delphi 指针

原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。 http://fxh7622.blog.51cto.com/63841/28207

由于最近公司太忙，好久没有更新我的BLOG了。原来想着写写关于HOOK驱动的文章，可是最后想想好久已经没有做驱动的东西了，怕写出来有错误，于是作罢。开发游戏也有一段时间了，发现使用DELPHI来开发网络游戏不了解DELPHI下指针的使用是完全不行的。所以今天我简单总结以下我使用DELPHI指针的心得。希望对大家有所帮助。

记得在大学学习C语言的时候在谭浩强编写的书中，关于指针一章的开始就说“指针是C语言的精华”，可见指针对于C语言的重要性。其实在Pascal语言中指针也占据着重要的位置。

1：指针的赋值。

type

RTestInfo = record

Age：Integer;

end;

PtestInfo = ^ RtestInfo;

var

Test1,Test2：PtestInfo;

Begin

New(Test1);

New(Test2);

Test1^.Age:=12;

Test2:=Test1;

Application.MessageBox(Pchar(IntToStr(Test2^.Age)),’测试’,MB_OK);

Test1^.Age:=13;

Application.MessageBox(Pchar(IntToStr(Test2^.Age)),’测试’,MB_OK);

DisPose(Test1);

DisPose(Test2);

End;

上面的代码中使用了Test2:=Test1;进行指针的赋值，也就是说进行赋值以后两个变量指向的相同的地址，所以当Test1的Age发送变化以后Test2的Age也随之发生了变化。反过来也是一样。那如果我们要将Test1中的内容放在Test2中并且当Test1中的内容发生变化的时候Test2的内容不会发生变化有如何来做呢？其实很简单，使用Test2^：=Test1^；就可以了，这个时候变量Test1和变量Test2指向的是两个不同的地址，当一方的内容发生变化的时候另外一方不会受到影响。

2 ：数组和指针的转换。

曾使用过API函数来编写网络通信的都知道，网络传输过程中传输的都是char类型的数组。而我们经常需要将自己定义的一个结构通过网络传输出去，并且当对方接收到这个数据以后又能将其转换为相应的结构来处理。以前我是使用添加标记位来解决这个问题。其实使用数组和指针转换是很简单的。

type

RtestInfo = record

Age ：Integer;

End;

Var

Test: RtestInfo;

Data ：array[0..1024] of Char;

Begin

Test.Age:=13;

Fillchar(Data,SizeOf(Data),#0);