在线等待高分悬赏 用什么类型接收串口16进制数据

Question

使用Olevariant类型进行接收，并要转化成variant类型进行处理；
 var
  vtmp:variant
  ovtmp:olevariant; ovtmp:=mscomm.input;
 vtmp:=vararraycreate([0,3],varbyte);
 vtmp:=ovtmp;
 strinput:='';
 For i:=0 to 3 do
     begin
          btmp:=vtmp[i];
          str:=str+chr(btmp);
     end;

Answer 1

使用Olevariant类型进行接收，并要转化成variant类型进行处理；
 var
  vtmp:variant
  ovtmp:olevariant;
  btmp:byte;
  str:string;
  i:integer; ovtmp:=mscomm.input;
 vtmp:=vararraycreate([0,3],varbyte);
 vtmp:=ovtmp;
 str:='';
 For i:=0 to 3 do
     begin
          btmp:=vtmp[i];
          str:=str+chr(btmp);
     end;