Mv.doc

(Sender:TObject);varBaudRate:integer;='打开串口',BaudRate)then//把字符串变成整数,('波特率设定有误'+#13+'请重新输入','警告',MB_ICONWARNINGorMB_OK);;exit;;:='关闭串口';:=:=:=:=:=false;:=true;:=false;:=true;endelse//='关闭串口';:='打开串口';:=:=:=:=:=true;:=false;:=false;:=true;end;:=;//设置定时时钟ShowStatus;end;(Sender:TObject);beginClose;end;(Sender:TObject);;end;//(Sender:TObject);varmyMenu:HMENU;:=minHeight;:=minWidth;FShowText:=True;FRXNum:=0;FTXNum:=0;);//:=0;//mName:=;//:=6;//:=);//:=0;//:=None;//:=3;//:=_8;//:=0;//:=_1;//装入初始化停止位0myMenu:=GetSystemMenu(Handle,False);//??????????AppendMenu(myMenu,MF_SEPARATOR,0,'');//????????????AppendMenu(myMenu,MF_STRING,idAbout,'关于');//??????????end;//;:='Rx:'+IntTostr(FRXNum);end;//;='关闭串口'thenbegin//???????????????????????????:=Format('STATUS:%sOpened%s%s%s%s',[,{,}),]);:='PortClosed';end;//;:='Tx:'+IntTostr(FTXNum);end;//------------------------(Sender:TObject);beginFRXNum:=0;FTXNum:=0;ShowRX;ShowTX;end;//----