Code:
procedure TForm1.SX0Click(Sender: TObject);
var
s, t: string;
i: integer;
begin
s := #254#0;
for i := $80 to $E7 do //<--- Hier #128 to #231 Nicht möchlich. Trotz Konvertierung.
begin
t := s + Chr(i) + #255;
ComPort.WriteStr(t);
end;
end;
Damit gehts. Vielleicht kann mir einer erklären warum es mit Hex geht, aber mit
Ascii nicht. Danke.