Советы по Delphi



HEX -> Integer


Решение 1

var
i : integers : string;begin
s := '$' + ThatHexString;i := StrToInt(a);end;

Решение 2

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) DOIF str[i] < 'A' THEN Int := Int * 16 + ORD(str[i]) - 48ELSE Int := Int * 16 + HEX[str[i]];WRITELN(Int);READLN;END.
[000001]




Содержание    Вперед