Source Code : 
function hexaToInt(string) : Int64;
begin
 
  
if (<> '') and (s[1] <> '$'then
    result 
:= strToInt64('$' )
  else

[Login or Register to remove this advertisement]

    
result := strToInt64(s);
end
Mobile_Guru Reviewed by Mobile_Guru on . Hexadecimal to Integer function hexaToInt(s : string) : Int64; begin if (s <> '') and (s <> '$') then result := strToInt64('$' + s ) else result := strToInt64(s); end; Rating: 5