Forum: Programmieren allgemein
by HolgerX,
31. Aug 2019
Hmm..
Packe Dir mal nen Memo neben das Edit und schreib im OnKeyDown den HexWert des Keys ins Memo, somit solltest Du alle Zeichen erhalten und kannst erkennen, was der Scanner schickt...
Eventuell statt OnKeyDown das OnKeyPress verwenden...
Forum: Programmieren allgemein
by HolgerX,
31. Aug 2019
Hmm..
Eigentlich sollten alle Chars bei OnKeyDown am Edit ankommen, auch Steuerzeichen, sprich Chars < #32.
Bis Du dir sichen, das auch wiklich $1D vom Scanner gesendet wird ?
Tausche mal OnKeyDown gegen aus:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key < 32 then Key := Ord('#');
Forum: Programmieren allgemein
by HolgerX,
31. Aug 2019
Hmm..
Da das $1D kein 'visuelles' Zeichen hat, kommt es beim Edit auch nicht zur Anzeige und somit nicht in den String.
Gehe mal hin und verwende OnKeyDown zur Konvertierung in ein Anzeigbares...
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin