本文整理自网络,侵删。
内存分配常见函数GetMem和FreeMem、GetMemory和FreeMemory、New和Dispose、StrAlloc和StrDispose、AllocMem、SysGetMem和SysFreeMem。
2 GetMem和FreeMem、GetMemory和FreeMemory
由于DELPHI的内存管理都知道分配内存的大小,因此在释放内存的时候,只要给指针地址不用给出长度就可以了。另外提倡用GetMemory和FreeMemory来代替GetMem和FreeMem,因为FreeMemory会判断指针是否为空。
3 New和Dispose
New和Dispose是用来管理变体类型内存分配,如变体结构体:
TRecord = record
Text: string;
Value: Integer;
end;
PRecord = ^TRecord;
如果用GetMem和FreeMem、GetMemory和FreeMemory来释放,会造成Text的内存没有释放,造成内存泄漏。如果用Dispose来释放指针,要加上定义信息,否则造成内存泄漏,正确写法Dispose(PRecord(Point))。
4 StrAlloc和StrDispose
这个函数也是一对,他们分配PChar加一个Cardinal长度,因此一定要用StrDispose释放,否则容易造成4字节的内存泄漏。StrAlloc分配的指针可以使用StrBufSize来获得大小。
5 AllocMem
AllocMem是调用GetMem来分配内存,但是它会把内存全部初始化为#0,因此推荐AllocMem代替GetMem和GetMemory。以下写法都是错误的,都会造成字符串没有结尾符。
function SystemPath: string;
begin
SetLength(Result, GetSystemDirectory(nil, 0));
GetSystemDirectory(PChar(Result), Length(Result));
Result := PChar(Result);
end;
function SystemPath: string;
begin
SetLength(Result, GetSystemDirectory(nil, 0));
GetSystemDirectory(PChar(Result), Length(Result));
Result := PChar(Result);
end;
var
SystemPath: PChar;
Len: Cardinal;
begin
Len := GetSystemDirectory(nil, 0);
SystemPath := GetMemory(Len);
GetSystemDirectory(SystemPath, Len)
FreeMem(SystemPath);
end;
6 SysGetMem和SysFreeMem
SysGetMem和SysFreeMem是上面函数的底层实现,申请的内存不通过DELPHI内存管理器管理,一般不直接使用它们。
System.GetMem、System.FreeMem - 申请和释放内存如果只为单个指针分配内存, 和 New 和 Dispose 是一样的; 与之不同的是: GetMem 可以申请连续的多个内存块.
举例:unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;
type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;
var Form1: TForm1;implementation
{$R *.dfm}
Type TMyRec = record {定义结构} name: string[8]; age : Word; end; PMyRec = ^TMyRec; {定义结构指针}
var pr: PMyRec;
procedure TForm1.FormCreate(Sender: TObject);begin {同时分配 3 个结构的内存; 此时的三个结构在内存中是连续的} GetMem(pr, SizeOf(TMyRec) * 3);
{此时 pr 指向第一个结构, 赋值} pr.name := '张三'; pr.age := 11;
{让 pr 指向第二个结构, 赋值} Inc(pr); pr.name := '李四'; pr.age := 22;
{让 pr 指向第三个结构, 赋值} Inc(pr); pr.name := '王五'; pr.age := 33;
{先回到第一个结构, 然后依次读取} Dec(pr, 2); ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {张三 11 岁} Inc(pr); ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {李四 22 岁} Inc(pr); ShowMessage(Format('%s %d 岁', [pr.name, pr.age])); {王五 33 岁}
{从第一个结构, 清除 3 个结构大小的内存, 这样就删除了上面三个结构} Dec(pr, 2); FreeMem(pr, SizeOf(pr^) * 3); {SizeOf(TMyRec) 和 SizeOf(pr^) 是一样的}end;
end.
相关阅读 >>
Delphi combobox1dropdown 生成动态下拉列表
Delphi 2009 之 tstringbuilder 类[7]: tostring
更多相关阅读请进入《Delphi》频道 >>