2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

var

  P: Pchar; //P 是指针

  CSize: Cardinal;

begin

  CSize := MAX_COMPUTERNAME_LENGTH + 1;

  GetMem(P, CSIze);//在这里你给 P 分配了一块内存。

  P := ‘4321‘; //这里你将 P 指向另一处含有常量 ‘4321‘ 的内存。此时先前给 P 分配的内存

                 //已经成了“孤岛”，就是通常所说的“内存泄漏”。

  ShowMessage(P);

  FreeMem(P); //常量 ‘4321‘ 的内存是由系统自动管理的，不允许人工释放。

end;

//下面代码正常：

var

  P: Pchar; //P 是指针

  CSize: Cardinal;

begin

  CSize := MAX_COMPUTERNAME_LENGTH + 1;

  GetMem(P, CSIze);//在这里你给 P 分配了一块内存。

  strcopy(P,‘4321‘); //将常量 ‘4321‘ 复制到先前给 P 分配的内存里。

  ShowMessage(P);

  FreeMem(P); //释放给 P 分配的内存。

end;