Versuch's mal damit:
Delphi-Quellcode:
function Dec2Hex (aValue: integer): string;
begin
Result := IntToHex(LoWord(aValue), 4);
end;
function Hex2Dec (const aValue: string): Integer;
var code : Integer;
temp : SmallInt;
begin
Val (aValue, temp, code);
Result := temp;
end;
Die Routinen liefern/erwarten 4-stellige Hexwerte und führen keine Fehlerüberprüfung durch.
Gruß Hawkeye