String mit erweitertem ASCII Zeichensatz verarbeiten

[Marc Greene]

Schönen guten Tag!

Ich habe hier einen handelsüblichen USB-Barcodescanner, der einen Barcode mit erweitertem ASCII-Zeichensatz liefert (EAN-128). Dazu habe ich mir eine Testanwendung mit Memofeld gebaut und einen Button, der den Scan in die Variable s schaufeln soll. Nach Scannen des Barcodes landet das Ergebnis im Editfeld und wird nach Klick auf einen Button in die Variabnle s befördert

s := mmScan.Text Der Barcode enthält nun aber nicht nur Zahlen, sondern z.B. einen Group Separator D1 (Hex). Der wird natürlich im Edit-Feld nicht angezeigt und auch nicht in die Variable s geschrieben. Auch die folgende Funktion hilft da erwartungsgemäß nicht weiter

Delphi-Quellcode:

function WStrToHex(SourceStr: WideString): WideString;
var
  hexstr: string;
  i : integer;
begin
  result := '';
  hexstr := '';
  for i := 1 to Length(SourceStr) do
    hexstr := hexstr + ' ' +IntToHex(Word(SourceStr[i]), 2);
    Result := hexstr;
end;

Wie komme ich nun an mein D1 (hex) ran?

Gruß aus dem trüben Braunschweig
Carsten