Delphi字符指针使用技巧

Delphi中PChar为以0结尾的字符指针，常用于Windows API函数的参数传递。

1、 启动Delphi7开发环境，进入默认工程的Form1窗体界面，添加一个按钮控件并命名为Button1。

2、 双击Button1，在其事件中编写相应代码。

3、 var

4、 说明一下：

5、 为指针分配256字节长度的内存空间。

6、 StrBufSize(pc) 用于获取PChar指针所指向内存空间的大小。

7、 调用Windows API的GetWindowText函数，用于获取指定窗口的标题文本内容。

8、 释放指针pc所指向的内存空间。

9、 按下F9运行程序，点击按钮后弹出对话框，显示当前窗体的标题内容。

10、 接下来我们通过为字符数组指针分配地址来实现相同功能，双击Button1进入事件处理方法，修改后的代码如下所示。

11、 var

12、 数组地址自动分配，无需手动管理

13、 按下F9运行程序，点击按钮后弹出对话框，显示当前窗体的标题内容。

14、 再次尝试获取系统目录，双击Button1进入事件处理，修改后的代码如下所示。

15、 var

16、 按下F9运行程序，点击窗体按钮后，对话框将弹出并显示当前Windows系统目录。