procedure TForm1.Button1Click(Sender: TObject);var Crc:Tcrc; SND:array of byte; Wlen:integer;begin Setlength(SND,8);// FillChar(SND,8,0); SND[0]:=1; // Abakus Address SND[1]:=3; // Function Code 3,4,6,16.... SND[2]:=0; // Register Addr High SND[3]:=4; // Register Addr Low SND[4]:=0; // Read Quantity High SND[5]:=2; // Read Quantity Low Crc:=Crc16Check(SND); SND[6]:=Crc.CrcH; SND[7]:=Crc.CrcL; Wlen:=High(SND)+1; cnRs2321.WriteCommData(@SND[0],Wlen);// Timer1.Enabled:=true;// Timer2.Enabled:=true;end;发送字符串S:='ytewetwqeruwqrtwqrqwriqwr'cnRs2321.WriteCommData(@S[1],length(s));