帮忙翻译一下VB写的MSCOMM控件程序。

Question

Dim byteout(1 To 3) As Byte
Dim int1 As Integerbyteout[1]=&HAA
byteout[2]=&HBB
byteout[3]=&HCCMcomm1.outPut=byteout      <----关键是这个  delphi不允许这样发送！

Answer 1

var
  sBuf: string;
begin  sBuf[1] := char($AA);
  sBuf[2] := char($BB);
  sBuf[3] := char($CC);
  MComm1.OutPut := sBuf;end;

Answer 2

sBuf[1] := char($AA);  <----运行时出错！

Answer 3

var
  buf: array[0..2] of char;
  sbuf: string;
begin  buf[0] := char($BB);
  buf[1] := char($CC);
  buf[2] := char($DD);
  MSComm1.PortOpen := TRUE;
  MSComm1.Output := Copy(buf,0,3);end;