delphi pchar 指针错误

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;