procedure TForm1.MSComm1Comm(Sender: TObject);
var
in_variant:variant;
in_array:array of byte; s1:string;
begin
in_variant:=mscomm1.Input; //接收
in_array:=in_variant;
s1:=inttohex(in_array[0],2);
s1:=s1+inttohex(in_array[1],2); memo1.Lines.Text:=memo1.Lines.Text+s1+#13#10;
end;
这段程序一般是可以运行的。但我改变了单片机一方的设置后,系统报"Variant array index out of bounds"
var
in_variant:variant;
in_array:array of byte; s1:string;
begin
in_variant:=mscomm1.Input; //接收
in_array:=in_variant;
s1:=inttohex(in_array[0],2);
s1:=s1+inttohex(in_array[1],2); memo1.Lines.Text:=memo1.Lines.Text+s1+#13#10;
end;
这段程序一般是可以运行的。但我改变了单片机一方的设置后,系统报"Variant array index out of bounds"
解决方案 »
- 关于Delphi中存储用户对象的问题
- 1111被一帮光棍敲诈要我散分
- 程序模拟点击,和真实点击一样。给点源码最好。
- 请问如何在系统关闭菜单按钮事件中执行代码?
- 请问:var,type,function,procedure,public,private 这些都是什么意思? 有什么作用?
- 请问:TXMLdocument在xml里面怎样取出<test type="bool"> 中的"type="后面这部分?
- 各位高手,帮帮忙!
- 关于字符串转换
- (200分)如何利用quickrep打印空行(记录数较少)的表格
- 关于从数据库读取word2010文档的问题,困扰我多时,请指教!
- 如何让stringgrid整列或整行变色?
- 有关printdialog和printersetupdialog打印控件的问题
没内容的话这里取不到,就会报out of bounds的错误了,不信的话你随便弄个字符串试试