Comm1。波德拉特:= 4800；//每臺機器的波特率不同。
Comm1。奇偶性:= TParity(2)；
Comm1。ByteSize:= TByteSize(2)；
Comm1。stop bits:= TStopBits(2)；
Comm1。StartComm？//記得開頭就結束。
上面的代碼是用formshow寫的。
然後寫下面的流程。
程序Tfrm_cnc_h_edt。Comm1ReceiveData(發送方:TObject緩沖區:指針；
buffer length:Word)；
var str:字符串；
開始
編輯。清晰；
SetLength(Str，buffer length)；
move(buffer^、pchar(@Str[1])^、bufferlength)；
編輯。text:= trim(Str)；//此處顯示您需要的edit.text。
sendmessage(edt_measure.handle，wm_keydown，vk_return，0)；
結束；
最後，在formclose中寫入
Comm1。StopComm？//comm1結束
控制在系統中。找壹個和手電筒壹樣的。
可以復制代碼，對妳來說比較便宜。