String Konvertierung!?

[MrSpock]

Hallo Daniel B,

außerdem erweiterst du s bei jedem Schleifendurchlauf. Du must also die Zuweisung s := #254#1 in die Schleife mit aufnehmen!

Code:

procedure TForm1.SX1Click(Sender: TObject);
var
  s: string;
  i: integer;
begin
  for i := 0 to 1 do
  begin
    s := #254#1+Chr(i)+#255;
    ComPort.WriteStr(s);
  end;
end;

Edit: Code hinzugefügt