PChar的函数调用问题

Question

我有一个函数,里面用了一个PChar变量CallerID
var
  CallerID: pchar;
begin
  TV_Initialize;  
  CallerID := ''; //下一次接听的时候,CallerID和上次的一样
  StatusBar.Panels[1].Text := '等待来电...';
  StatusBar.Repaint;
  repeat
    if aStart.Enabled = true then exit;
    if TV_RingDetect(C_Index) > 1 the   //检测到振铃
      TV_ReceiveCallingID(C_Index, CallerID, 16);       //获取主叫号码
    FCallerID := String(CallerID);
    Application.ProcessMessages;
  until FCallerID <> '';
end;假设我第一次调用的时候CallerID是'1234567',到第二次我再调用的时候,执行CallerID := ''后,CallerID和第一次的一样.
请问怎么才能将CallerID初始化,怎么解决这个问题

Answer 1

GetMem(CallerID,256);
CallerID:='';
...
FreeMem(CallerID);

Answer 2

CallerID:=StrAlloc(64*SizeOf(Char));//CallerID指向一个分配了63个字符的缓冲区StrPCopy(CallerID,'Delphi 5'); StrDispose(CallerID) ; ///清除缓冲区。

Answer 3

直接把CallerID := '';去掉