Advanced Search

Return to Snippet

Revision: 8011
at August 26, 2008 17:12 by Nix
Initial Code 
function hexaToInt(s : string) : Int64;
begin

  if (s <> '') and (s[1] <> '$') then
    result := strToInt64('$' + s )
  else
    result := strToInt64(s);
end;
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
Works great ;)

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Hexadecimal to Integer

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Delphi