Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
969 Beiträge
 
Delphi 6 Professional
 
#3

AW: Scanner Steuerzeichen fehlen

  Alt 8. Nov 2021, 20:43
Hmm..

Zum Testen für Dich:

Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key < $32 then begin // Sichtbare Zeichen beginnen i.R. beim Leerzeichen
    Edit1.Text := Edit1.Text + '#' + IntToHex(key,2);
    Key := 0; // Damit nicht eventuell ein weiteres Zeichen angehängt wird
  end;
end;
Damit werden Steuerzeichen als Hexwert mit '#' davor im Edit eingetragen.
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
  Mit Zitat antworten Zitat