关于读取COM口数据的一个方法

在做读取com口时总是遇到各种各样的问题，以至于取不到想要的数据格式，于是被逼无奈下想到如下方法，就是添加一个Timer控件。

代码如下：

procedure TForm1.MSComm1Comm(Sender: TObject);
var
 str,str1:string;
begin
  str:=Trim(Mscomm1.Input);
  Newstr:=NewStr+Str;
  Timer1.Enabled:=true;  
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if (Mscomm1.InputLen=0) and (Newstr<>'') then begin
   Memo1.Lines.Add(NewStr);
   Newstr:='';
   Timer1.Enabled:=false;
 end;
end;