5,477
社区成员
发帖
与我相关
我的任务
分享getmem的用法？
过程getmem（Var p:pointere;size:integer)，是为一个指针变量制造一个动态变量，并把变量的地址赋值给指针p。size是动态变量占用的内存字节数。
是这样吗？可是为什么有时对size取一个不适当的数，也不会出错的？
比如如下，integer型的变量占用4字节，可是分配一字节，并不出错的！
procedure TForm1.Button1Click(Sender: TObject);
var n:^integer;
begin
getmem(n,1);
n^:=2;
freemem(n);
end;
是这样吗？可是为什么有时对size取一个不适当的数，也不会出错的？
比如如下，integer型的变量占用4字节，可是分配一字节，并不出错的！
procedure TForm1.Button1Click(Sender: TObject);
var n:^integer;
begin
getmem(n,1);
n^:=2;
freemem(n);
end;
...全文
请发表友善的回复…
发表回复
dedema 2001-11-03
- 打赏
- 举报
先给分了再说！
cobi 2001-11-03
- 打赏
- 举报
重点关注
dedema 2001-11-03
- 打赏
- 举报
可是并不出错的啊！没有提示，结果也是正确的啊！
sundayboys 2001-11-02
- 打赏
- 举报
那样会出现数据溢出的。
xBai21 2001-11-02
- 打赏
- 举报
一个获得系统目录的例子
var SysPath:PChar;
begin
GetMem(SysPath,255);
GetSystemDirectory(SysPath,255);
end;
var SysPath:PChar;
begin
GetMem(SysPath,255);
GetSystemDirectory(SysPath,255);
end;
