in Byte umrechnen und per string senden

[ljmarkus]

Delphi-Quellcode:

var Data: String;
//...
SetLength(Data, 1);

if bit0 = 1 then
  Byte(Data[1]) := Byte(Data[1]) + $80;
//...
ComPort1.WriteStr(Data);

danke, das funktioniert soweit, nur für das zweite Byte nicht.

Delphi-Quellcode:

var Data: String;
//...
SetLength(Data, 2);

// bit 0-7 auslesen
if bit0 = 1 then
  Byte(Data[1] := Byte(Data[1]) + $80;
//...
// bit 8-15 auslesen
if bit0 = 1 then
  Byte(Data[2] := Byte(Data[2]) + $80;
//...
ComPort1.WriteStr(Data);