Hallo,
Vielen Dank für die schnelle Antwort. Aber irgendwie scheint das noch nicht zu gehen.
In deinem Befehl denke ich mal ist das Edit_Data.Text falsch geschrieben oder? Das hoffe ich mal das ich das erkannt habe.
Wann muss ich das denn einfügen? Anstelle von
?`
Ich habe das mal so versucht :
Code:
procedure TForm1.Button_SendClick(Sender: TObject);
var
Str: String;
begin
StrToInt(Edit_Data.Text); // oder auch mit StrToInt('$'+Edit_Data.Text);
if NewLine_CB.Checked then
Str := Str + #13#10;
ComPort.WriteStr(Str);
end;
Jetzt kommt gar nix am Port Monitor. Was mache ich falsch?