串口问题(0分)

我的代码如下但中没有数据.
procedure TFrmWeight.CommPReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Cardinal);
var
Buffer : string;
begin
Move(DataPtr^,Buffer,sizeof(Buffer));
end;

这样：
procedure TFrmWeight.CommPReceiveData(Sender: TObject; DataPtr: Pointer;
DataSize: Cardinal);
var
Buffer : array of char;
begin
SetLength(Buffer,DataSize);
CopyMemory(@Buffer[0],DataPtr,DataSize);
ShowMessage(String(Buffer));
// to do other ....
SetLength(Buffer,0);
end;


不是吧！老大！没分！

0