Приветы! Подскажите, какая функция в Дельфи переводит число из хекса в десятиричную систему?... А то я хекс->бин, дек->хекс нашёл, а вот из хекса в дек нету.. Поможите! есть ли стандартная функция перевода из 16 ричной в 10 ричную?
Игорек
25.04.2003 21:29
Решение 1
Код
var i : integer s : 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) DO IF str[i] < 'A' THEN Int := Int * 16 + ORD(str[i]) - 48 ELSE Int := Int * 16 + HEX[str[i]]; WRITELN(Int); READLN; END.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.