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
DelphiWorld 6.0