GetMem过程 - Borland Delphi 开发工作者手册

返回介绍

GetMem过程

发布于 2019-08-04 字数 833 浏览 904 评论 0

System

procedure GetMem(var P:Pointer;Size:Integer);

GetMem创造一个动态变量和一个指向地址块的指针。

P是一个任意指针类型的变量。Size是一个表达式,说明了分配的动态变量的字节大小。用于引用的新的变量作为P^。如果没有足够的内存来分配动态变量,一个EoutOfMemory异常将发出。

以下的例子打开了一个文件保为’text.txt’,将全部文件读取到一个动态分配的缓冲区内。缓区各文件的尺寸得传给一个来操作文件的任务,最后动态缓冲区被释放,文件被关闭。

var

F:file;

Size:Integer;

Buffer:Pchar;

begin

AssignFile(F,’test.txt’);

Reset(F,1);

try

Size:=FileSize(F);

GetMem(Buffer,Size);

try

BlockRead(F,Buffer^,Size);

ProcessFile(Buffer,Size);

finally

FreeMem(Buffer);

end;

finally

CloseFile(F);

end;

end;

上一篇:GetMemoryManager过程

下一篇:GetOleFont过程

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!