String & Cardinal

[BUG]

Wie wäre es mit sowas in der Art?

Delphi-Quellcode:

function HexToCardinal(x: String): cardinal;
var i: integer;
begin
  result := 0;
  if (length(x)*4 > SizeOf(cardinal)*8) then; // ERROR;
  for i := 1 to length(x) do
  begin
    case x[i] of
      '0'..'9': result :=  (result shl 4) or (ord(x[i])- ord('0'));
      'a'..'f': result :=  (result shl 4) or (ord(x[i])- ord('a') + 10);
      'A'..'F': result :=  (result shl 4) or (ord(x[i])- ord('A') + 10);
      else; //ERROR;
    end;
  end;
end;