谨防数组函数返回值造成的内存泄露

数组作为函数返回值时，非常容易引起内存泄露。

问题现象：Build应用程序后，提示非法内存访问；可是Compile应用程序却没有这个问题。

问题思考：函数返回值，在被调用函数中负责释放；局部变量也是在函数调用结束后在函数内被释放。如果一个函数调用了另外一个函数，却没有使用被调用函数的返回值，就有可能造成内存泄露。

 

//数组作为函数返回值

function StrToPByte(Const str: string;Var arrByte: array of byte): PByte;
var
  i: integer;
begin
  for i := 0 to Length(str) do
  begin
    arrByte[i] := Byte(Char(str[i + 1]));
  end;

  Result := @arrByte;
end;

 

//错误用法

procedure Test;

var

  arrTest: array[0..15] of byte;

  str: string;

begin

  str := '1239582692918232';

  StrToPByte(str, arrText);  

end;

 

//正确用法(用局部变量引用，才能保证被Delphi释放)

procedure Test;

var

  arrTest: array[0..15] of byte;

  pTest: PByte;

  str: string;

begin

  str := '1239582692918232';

  pTest := StrToPByte(str, arrText);  

end;