Hex --> Integer

Previous  Top  Next

    
 

Code:

var

i : integer

s : string;

begin

s := '$'+'20FF';

i := StrToInt(a);

end;

©Drkb::00937

Взято из http://forum.sources.ru

 

 


 

Code:

CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);

VAR

str : String;

Int,

i   : integer;

BEGIN

READLN(str);

Int := 0;

FOR i := 1 TO Length(str) DO

   IF str[i] < 'A' THEN

     Int := Int * 16 + ORD(str[i]) - 48

   ELSE

     Int := Int * 16 + HEX[str[i]];

WRITELN(Int);

READLN;

END.

 

©Drkb::00938

http://delphiworld.narod.ru/

DelphiWorld 6.0