CPort Hex Zahlen senden

[DeddyH]

Wie ist es so?

Delphi-Quellcode:

procedure TForm1.Button_SendClick(Sender: TObject);
var
  Str: String;
  i: integer;
begin
  Str := Edit_Data.Text;
  for i := 1 to Length(Str) do
    Str[i] := Chr(StrToInt(Str[i]));
  if NewLine_CB.Checked then
    Str := Str + sLineBreak;
  ComPort.WriteStr(Str);
end;