这样使用指针为什么存取异常呢?

[lyshw]

procedure Test(bStatus: PChar);
var
r: Byte;
begin
r := 128;
bStatus^ := Chr(r);
end;
应该如何改进呢?

[jinjazz]

var p:pchar;
begin
getmem(p,100);
Test(p);
shomessage(p);
freemem(p);
end;

[lyshw]

我就是这样调的 不行啊

[支持中文哦]

Byte可以保存下128吗？高位被截断了。0-127吧.
还有,传进函数的指针实现分配了内存吗?这个不是该函数的责任吧,应该是调用代码的责任.

[lyshw]

byte当然可以保存128了 可以保存0-255