内存分配常见函数
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来获得大小。
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 - 申请和释放内存
举例:
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.new动态生成一个指针,初始化指针为空,用dispose释放 getmem申请一块内存,用freemem释放 allocmem从堆中申请内存,并且用#0进行初始化!用freemem释放 Fillchar是Turbo/Borland Pascal的System单元的一个标准过程,它的使用格式是:FillChar(var X; Count: Word; value),它的功能是,把指定变量X在内存段中所占的低Count个字节赋为相同的值value, 其中value是填充的值,只能是Byte、Char或Boolean等单字节类型的值。在Free Pascal中稍加扩展为FillChar(var X; Count: Longint; value), 功能没变。
FillChar(FileData[0],SumLen,#0);数据的第一个数的值是数据的起始地址。
我们能看到以下代码 var pSource,pDest:PChar; len: integer; .......................//一些代码 Move(pSource,pDest,len); //错误 Move(pSource^,pDest^,len); //正确 看起来确实好像是传值,而不是传地址,但是各位别忘了,这不是C,C++,而是Delphi Object Pascal,所以,绝不能从函数调用的方法判断是传值还是串地址!!必须看函数的 定义,只有定义才能说明是传值还是传地址,再说一遍,这不是C,C++!! 我们看到的函数定义是这样的 procedure Move(const Source; var Dest; Count: Integer); 从定义上看,很清楚,Dest是传地址,而不是传值,那么Source呢,其实大家不太清楚 这里的Const修饰符有两个含义,第一个大家都知道就是Source一常量方式在函数体内, 不可以改变它的值,第二个可能知道的人不多,那就是Source的传递方式和Dest一样, 是传地址!也就是说const和var一样,都是传地址,只不过一个在函数内不允许修改, 另一个是修改后影响调用的变量值 所以Move是传地址,而恰恰不是传值!
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数. 搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人. var s:string; ps:Pchar; b:pbyte; len:integer; begin s:=edit1.Text; //字符串 ps:=pchar(s); //转成pchar类型, len:=length(s);//取字符串长度,占用多少字节 getmem(b,len);//申请内存,pchar,pbyte在使用前都必须要申请内存,因为他们是指针. move(ps^,b^,len);//这里 ps^意思是pchar指向内存数据的第一个字节地址,B^是表示申请内存的第一个字节地址,这样就可以一个一个字节的移到b里去了. memo1.Text:=pchar(b);//显示. freemem(b); end; 有些人遇到的困惑是为什么 move(s,b,len)不行呢?同样我也遇到这样的困惑. 看了一样move的函数源码才明白. procedure Move( const Source; var Dest; count : Integer ); {$IFDEF PUREPASCAL} var S, D: PChar; I: Integer; begin S := PChar(@Source);//取内存地址 D := PChar(@Dest);//取内存地址 if S = D then Exit; if Cardinal(D) > Cardinal(S) then for I := count-1 downto 0 do D[I] := S[I] else for I := 0 to count-1 do D[I] := S[I]; end; 如果直接传入s, S := PChar(@Source);//取内存地址\ 就相当于取的字符串S地址的地址. 如果传入的是ps^ S := PChar(@Source);//取内存地址 就相当于取pchar 所指向字符串实际数据的地址