HexToDec optimieren

[Mavarik]

hmm

Delphi-Quellcode:

{--------------------------------------------------------------}
function HexToDec(const s: Array of Byte): AnsiString; overload;
//Sehr grosse Hex-Zahlen Decimal umwandeln
{--------------------------------------------------------------}
var
    total : Int64;
    i,n: Integer;
begin
  total := 0;

  if length(s) > 8 then
    Exit; 

  for i := 0 to high(s)-1 do
    begin
      total := total or S[i];
      total := total shl 8;   
    end;
    total := total or S[7];

  Result := inttostr(total);
end;

Oder habe ich etwas falsch verstanden?

Mavarik