Hex → Integer

Материал из DRKB

Hex --> Integer[править | править код]

var
  i: Integer
  s: string;
begin
  s := '$' + '20FF';
  i := StrToInt(a);
end;


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



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.


Source: DelphiWorld 6.0 http://delphiworld.narod.ru/
ID: 00938