How to HEX--> Decimal Integer? 兵临城下，快活如故。

------
兵临城下，快活如故。

This algorithm shows a converting hexadecimal value to the decimal value.      function HexToDec(Str: string): Integer; var i, M: Integer; begin Result:=0; M:=1; Str:=AnsiUpperCase(Str); for i:=Length(Str) downto 1 do begin case Str[i] of '1'..'9': Result:=Result (Ord(Str[i])-Ord('0'))*M; 'A'..'F': Result:=Result (Ord(Str[i])-Ord('A') 10)*M; end; M:=M shl 4; end; end; procedure TForm1.Button1Click(Sender: TObject); begin if Edit1.Text<>'' then Label2.Caption:=IntToStr(HexToDec(Edit1.Text)); end;

一、傳入16進制(String 型態)

function HexToDec(hex:string):integer;
begin
    result:=strtoint(hex);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    self.Caption :=inttostr(hextodec('$FFFF'));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    self.Caption :=inttostr(hextodec('$' + HexVarible ));
end;

發表人 - ddy 於 2003/03/19 20:44:52

二、傳入16進制(integer 型態)

function HexToDec(hex:integer):integer;
begin
    result:=strtoint(inttostr(hex));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    self.Caption :=inttostr(HexToDec($FFFF));
end;

ps:hex 本來就是integer，只是表示法不同 發表人 - ddy 於 2003/03/19 20:46:09

ASM 版 (from KOL - http://bonanzas.rinet.ru/)

procedure EAX2PChar;
asm
        TEST     EAX, EAX
        JNZ      @@exit
        MOV      EAX, offset['']
@@exit:
end;    function Hex2Int( const Value : String) : Integer;
asm
        CALL     EAX2PChar
        PUSH     ESI
        XCHG     ESI, EAX
        XOR      EDX, EDX
        TEST     ESI, ESI
        JE       @@exit
        LODSB
        {$IFDEF PARANOIA}
        DB $3C, '$'
        {$ELSE}
        CMP      AL, '$'
        {$ENDIF}
        JNE      @@1
@@0:    LODSB
@@1:    TEST     AL, AL
        JE       @@exit
        {$IFDEF PARANOIA}
        DB $2C, '0'
        {$ELSE}
        SUB      AL, '0'
        {$ENDIF}
        {$IFDEF PARANOIA}
        DB $3C, 9
        {$ELSE}
        CMP      AL, '9' - '0'
        {$ENDIF}
        JBE      @@3            {$IFDEF PARANOIA}
        DB $2C, $11
        {$ELSE}
        SUB      AL, 'A' - '0'
        {$ENDIF}
        {$IFDEF PARANOIA}
        DB $3C, 5
        {$ELSE}
        CMP      AL, 'F' - 'A'
        {$ENDIF}
        JBE      @@2            {$IFDEF PARANOIA}
        DB $2C, 32
        {$ELSE}
        SUB      AL, 32
        {$ENDIF}
        {$IFDEF PARANOIA}
        DB $3C, 5
        {$ELSE}
        CMP      AL, 'F' - 'A'
        {$ENDIF}
        JA       @@exit
@@2:
        {$IFDEF PARANOIA}
        DB $04, 0Ah
        {$ELSE}
        ADD      AL, 0Ah
        {$ENDIF}
@@3:
        SHL      EDX, 4
        ADD      DL, AL
        JMP      @@0    @@exit: XCHG     EAX, EDX
        POP      ESI
end;    ShowMessage(IntToStr(Hex2Int('FFFF'))); // 65535

Just for fun

樓上兩位好厲害！程式好.....短喔 由此可證..我還在學delphi怎麼爬？..嘿嘿    

ddy 版主己經特意將它變長了... 最短的就是直接 StrToInt('$' HexVarible ); 忘記了 StrToInt 也可將 Hex 轉 Int... 雖說上面 ASM 版本的理應比 StrToInt 快一丁點，但也實在是脫褲子放屁了。

引言: ddy 版主己經特意將它變長了... 最短的就是直接 StrToInt('$' HexVarible ); 忘記了 StrToInt 也可將 Hex 轉 Int... 雖說上面 ASM 版本的理應比 StrToInt 快一丁點，但也實在是脫褲子放屁了。

謝謝Justmade 提醒！~~ < src="http://spc.tn.edu.tw/k032/images/leaf[1].gif">

flyup 客氣了 hex 本來就是integer ，型態表示不同罷了 一起爬吧 ^^ < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">