begin
len := length(Senddata);
for len := 0 to len - 1 do
try
strsend := strsend + ansichar(Senddata[len]);
except // 过程函数
end; //功能：将存储在Senddata数组中的数转换成字符串发送
try
RXcount := 0;
comport.WriteStr(strsend);
except
end;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024