HexToInt optimieren

[luke2]

Hi,

Ich habe folgende 2 Funktionen:

Delphi-Quellcode:

function HexToInt1(const S: string): Cardinal;
begin
  Result := StrToInt('$' + S);
end;

function HexToInt2(const S: string): Cardinal;
var
  I: Byte;
  C: Char;
begin
  Result := 0;
  for I := 1 to Length(S) do
  begin
    Result := Result * 16;
    C := S[I];
    case C of
      '0'..'9': Inc(Result, Ord(C) - Ord('0'));
      'a'..'f': Inc(Result, Ord(C) - Ord('a') + 10);
      'A'..'F': Inc(Result, Ord(C) - Ord('A') + 10);
      //else raise EConvertError.Create('No Hex-Number');
    end;
  end;
end;

Die 2. Version ist die schnellere, mir allerdings nicht schnell genug.
Hat jemand eine optimierte (assembler) Version von HexToInt oder eine Idee zur Optimierung?

Danke!

[jfheins]

Hmmm ... Ideen:
Du könntest das *16 durch shl 4 ersetzen - weis nicht ob das vll. automatisch passiert, aber naja.
Außerdem könntest du ein Array machen, in dem du direkt nachguckst. Lookup-Tabelle quasi.
Und statt inc() könntest du auch ein bitweises or nehmen.

Also sowas:

Delphi-Quellcode:

function HexToInt2(const S: string): Cardinal; 
var 
  I: Byte;
const
  Arr: Array[AnsiChar] = ....; // Vorher belegen mit den passenden Werten
begin 
  Result := 0; 
  for I := 1 to Length(S) do 
    Result := (Result shl 4) or Arr[AnsiChar(S[I])];
end;

[luke2]

Danke, ist jetzt doppelt so schnell wie vorher!