delphi new如何申请、分配、以及释放空间 ？

[椰子天涯]

VC++中这样写

UCHAR * myBuffer;


myBuffer = new UCHAR[2048 * 1536 * 3];

memset(myBuffer, 0, 2048 * 1536 * 3);

delete []myBuffer;


请问delphi中该怎样写？

[椰子天涯]

我是这样写的


var myBuffer : PByte;


if myBuffer <> nil then
Dispose(myBuffer );
myBuffer := nil;

New(myBuffer );

这样写为什么不正确 请问还需要补充什么？ 谢谢

[椰子天涯]

我是这样写的


var myBuffer : PByte;


if myBuffer <> nil then
Dispose(myBuffer );
myBuffer := nil;

New(myBuffer );

这样写为什么不正确 请问还需要补充什么？ 谢谢

[纯冰糖]

GetMem,FreeMem

[纯冰糖]

GetMem,FreeMem....

[shuihan20e]

zeromemory

[纯冰糖]

memset对应D的ZeroMemory

[bdmh]

var 
  myBuffer : PByte;
begin
  GetMem(myBuffer,2048 * 1536 * 3);
  FillChar(myBuffer^,2048 * 1536 * 3,0);
  FreeMem(myBuffer,2048 * 1536 * 3);
end;

[kaikai_kk]

分配内存有多种方法，对应有释放方法也不同，比如
GetMem FreeMem
AllocMem ReallocMem
GetMemory ReallocMemory FreeMemory
New Dispose
StrNew StrAlloc StrDispose
...

建议用StrAlloc
他实际也是调用了GetMem, 但StrAlloc会在指针前面添加4个管理字节(作用是记录长度),相应的用StrDispose释放
内存操作，最好用try finally end处理,來保证分配的内存得到释放

var myBuffer : PByte;

try
New(myBuffer);
...
finally
Dispose(myBuffer);
end;

[椰子天涯]

谢谢大家 可以的 明白了

[椰子天涯]

祝大家有个好心情 ^_^