请把以下C++变量的定义和处理翻译为DELPHI

Question

本帖最后由 hnllqbc 于 2009-10-17 11:14:07 编辑

Answer 1

var
  WaveData: PChar;
begin
  WaveData := nil;
  GetMem(WaveData, Buffer);
  if WaveData <> nil then FreeMem(WaveData);
end;

Answer 2

或者：
var 
  WaveData: array of char; 
begin 
  SetLenteh(WaveData, Buffer); 
  //一般情况下，不需要下面的语句，Delphi会自动管理
  if Length(WaveData) <> 0 then 
    SetLenteh(WaveData, 0); 
end;

Answer 3

if(WaveData)delete[] WaveData; 
delete[] WaveData; 这代码。