Esta função converte string hexadecimais em números inteiros.
É necessário estar declarado SysUtils na seção uses,
em versões unicode delcare System.SysUtils.
Abaixo segue o código fonte da função:
1 2 3 4 | function HexToInt(Hexadecimal : String) : Integer; begin Result := StrToInt('$' + Hexadecimal); end; |
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage( IntToStr(HexToInt('FFF')) ); ShowMessage( IntToStr(HexToInt('AD8')) ); ShowMessage( IntToStr(HexToInt('197')) ); ShowMessage( IntToStr(HexToInt('D')) ); end; |
