定义一个record,例:
TSendData = record
STX: Byte;
ADD: Byte;
Data1: Byte;
Data2: Byte;
Data3: Byte;
Data4: Byte;
ETX: Byte;
CheckSum: Byte;/
end;
function SendData: Boolean;
var
TmpSendData: TSendData;
begin
TCom.Open;
TCom.Write(@TmpSendData, SizeOf(TmpSendData));
end;