PChar的用法

[yao518]

在写这个问题这前我也看了关于PChar方面的资料,但都不是我想要的.我只想知道我下面的代码为什么会出错,请大家给一个解释就行了.

var
PStr: PChar;
begin
GetMem(PStr, 225);
PStr := PChar('abc');
FreeMem(PStr);
end;

就是这短短的三行代码,可是他出了错,运行不了.

[madyak]

用法有问题。
var
PStr: PChar;
begin
GetMem(PStr, 225);//申请了内存，并由pstr指向这个内存
PStr := PChar('abc');//又把pstr批向了'ABC'所在的内存空间
FreeMem(PStr);//在此处释放的空间并不是第一次申请的空间，
由于这句话PStr := PChar('abc')，已经把申请的空间给弄丢了，释放不了了。
end;

[wudi_1982]

楼上的说了。

[天涯倦客]

var
PStr: PChar;
begin
PStr := PChar('abc');

[dyny]

GetMem(PStr, 225); //申请了内存，并由pstr指向这个内存
PStr:= PChar('abc'); //又把pstr批向了'abc'所在的内存空间
FreeMem(PStr); //在此处试图释放'abc'所在的内存空间，但这是不被允许的。

[zhangl_cn]

GetMem(PStr, 225);
//PStr:= PChar('abc');
StrPCopy(Pstr,'abc');
FreeMem(PStr);

[zhao_yong]

如樓上說的做應該不會報錯了吧?

[JetDash]

你的本意是给pstr赋值吧,那应该是
strcopy(pstr,pchar('abc'));

[skertone]

用StrPCopy 为什么 呢？

因为PChar 是 #$0 (\0) 字符结尾的字串

StrPCopy会自动加上这个 #$0结尾标记

所以PChar要留的长度是 所需长度 + 1