有关指针的问题???

Question

临时想的，未经测试，你可以试一下：
procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
Var
   P:PChar;
begin
  GetMem(P,BufferLength);
 try  System.Move(Buffer^,P^,BufferLength);
  Memo1.Lines.Add(StrPas(P)); finally
  FreeMem(P);
 end;end;procedure TForm1.SendData;
Var
      P:PChar;
  iSize:Integer;
begin
  iSize:=Edit1.GetTextLen+1;
  GetMem(P,iSize); try
  Edit2.GetTextBuf(P,iSize);
  Comm1.WriteCommData(P,iSize); finally
  FreeMem(P);
 end;end;

Answer 1

对不起，上面SendData过程中，Try下面的语名应为Edit1.GetTextBuf(P,iSize);

Answer 2

试试看下面的可能会行。procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;
  BufferLength: Word);
var ct:TCustInfo;
    m_bf:PChar;
    st:string;
begin
  m_bf:=StrAlloc(BufferLength);
  StrPCopy(m_bf, string(buffer^) );  st:=string(m_bf));
  memo1.Lines.Add(st);  dispose(buffer);end;没试过的，不管对错通知一声我呀！  [email protected]