Преобразование чисел в 16-ричные коды (строки) и обратно
Две приводимые ниже функции решают утилитарные задачи
Вызывает интерес математические приемы их решения
SourceNumber - целое беззнаковое 4-х байтное число, а его 16-ричный код (SourceHexCode), соответственно, восьмизначный.
dec := @Explode ("0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15");
hex := @Explode ("0 1 2 3 4 5 6 7 8 9 A B C D E F");
base := @Power (16; 7:6:5:4:3:2:1:0);
nn := SourceNumber;
hh := @Implode (@Replace (@Text (@Modulo (nn / base; 16)); dec; hex); "");
hh := SourceHexCode;
nn := @Sum (base * @TextToNumber (@Explode (@ReplaceSubstring (@Right("00000000" + @UpperCase (hh); 8); hex; dec + " "))));
)
