Преобразование HEX в STRING (в лоб) и обратно

Доброго дня!
В результате расчёта контрольной суммы, получаю переменную тип BYTE.
В hex, пусть будет, например 16#9A.
Теперь мне нужно получить две переменные типа STRING
В одной должна лежать '9'
Во второй 'A'
Ну а дальше, опять нужно получить hex-коды девятки и буквы A.
Как сделать запись BYTE в STRING (в лоб) - не понимаю.
Есть ли у кого-нибудь идеи?

Скрытый текст:

Код:

---

VAR
        initialNumber: BYTE := 16#9A;
        string_b1: STRING;
        string_b0: STRING;
        number_b1: BYTE;
        number_b0: BYTE;
END_VAR

---

Код:

---

IF initialNumber.3 = 0 AND initialNumber.2 = 0 AND initialNumber.1 = 0 AND initialNumber.0 = 0 THEN
        string_b0 := '0';
        number_b0 := 16#0;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 0 AND initialNumber.1 = 0 AND initialNumber.0 = 1 THEN
        string_b0 := '1';
        number_b0 := 16#1;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 0 AND initialNumber.1 = 1 AND initialNumber.0 = 0 THEN
        string_b0 := '2';
        number_b0 := 16#2;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 0 AND initialNumber.1 = 1 AND initialNumber.0 = 1 THEN
        string_b0 := '3';
        number_b0 := 16#3;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 1 AND initialNumber.1 = 0 AND initialNumber.0 = 0 THEN
        string_b0 := '4';
        number_b0 := 16#4;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 1 AND initialNumber.1 = 0 AND initialNumber.0 = 1 THEN
        string_b0 := '5';
        number_b0 := 16#5;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 1 AND initialNumber.1 = 1 AND initialNumber.0 = 0 THEN
        string_b0 := '6';
        number_b0 := 16#6;
ELSIF initialNumber.3 = 0 AND initialNumber.2 = 1 AND initialNumber.1 = 1 AND initialNumber.0 = 1 THEN
        string_b0 := '7';
        number_b0 := 16#7;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 0 AND initialNumber.1 = 0 AND initialNumber.0 = 0 THEN
        string_b0 := '8';
        number_b0 := 16#8;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 0 AND initialNumber.1 = 0 AND initialNumber.0 = 1 THEN
        string_b0 := '9';
        number_b0 := 16#9;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 0 AND initialNumber.1 = 1 AND initialNumber.0 = 0 THEN
        string_b0 := 'A';
        number_b0 := 16#A;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 0 AND initialNumber.1 = 1 AND initialNumber.0 = 1 THEN
        string_b0 := 'B';
        number_b0 := 16#B;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 1 AND initialNumber.1 = 0 AND initialNumber.0 = 0 THEN
        string_b0 := 'C';
        number_b0 := 16#C;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 1 AND initialNumber.1 = 0 AND initialNumber.0 = 1 THEN
        string_b0 := 'D';
        number_b0 := 16#D;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 1 AND initialNumber.1 = 1 AND initialNumber.0 = 0 THEN
        string_b0 := 'E';
        number_b0 := 16#E;
ELSIF initialNumber.3 = 1 AND initialNumber.2 = 1 AND initialNumber.1 = 1 AND initialNumber.0 = 1 THEN
        string_b0 := 'F';
        number_b0 := 16#F;
END_IF
IF initialNumber.7 = 0 AND initialNumber.6 = 0 AND initialNumber.5 = 0 AND initialNumber.4 = 0 THEN
        string_b1 := '0';
        number_b1 := 16#0;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 0 AND initialNumber.5 = 0 AND initialNumber.4 = 1 THEN
        string_b1 := '1';
        number_b1 := 16#1;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 0 AND initialNumber.5 = 1 AND initialNumber.4 = 0 THEN
        string_b1 := '2';
        number_b1 := 16#2;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 0 AND initialNumber.5 = 1 AND initialNumber.4 = 1 THEN
        string_b1 := '3';
        number_b1 := 16#3;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 1 AND initialNumber.5 = 0 AND initialNumber.4 = 0 THEN
        string_b1 := '4';
        number_b1 := 16#4;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 1 AND initialNumber.5 = 0 AND initialNumber.4 = 1 THEN
        string_b1 := '5';
        number_b1 := 16#5;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 1 AND initialNumber.5 = 1 AND initialNumber.4 = 0 THEN
        string_b1 := '6';
        number_b1 := 16#6;
ELSIF initialNumber.7 = 0 AND initialNumber.6 = 1 AND initialNumber.5 = 1 AND initialNumber.4 = 1 THEN
        string_b1 := '7';
        number_b1 := 16#7;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 0 AND initialNumber.5 = 0 AND initialNumber.4 = 0 THEN
        string_b1 := '8';
        number_b1 := 16#8;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 0 AND initialNumber.5 = 0 AND initialNumber.4 = 1 THEN
        string_b1 := '9';
        number_b1 := 16#9;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 0 AND initialNumber.5 = 1 AND initialNumber.4 = 0 THEN
        string_b1 := 'A';
        number_b1 := 16#A;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 0 AND initialNumber.5 = 1 AND initialNumber.4 = 1 THEN
        string_b1 := 'B';
        number_b1 := 16#B;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 1 AND initialNumber.5 = 0 AND initialNumber.4 = 0 THEN
        string_b1 := 'C';
        number_b1 := 16#C;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 1 AND initialNumber.5 = 0 AND initialNumber.4 = 1 THEN
        string_b1 := 'D';
        number_b1 := 16#D;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 1 AND initialNumber.5 = 1 AND initialNumber.4 = 0 THEN
        string_b1 := 'E';
        number_b1 := 16#E;
ELSIF initialNumber.7 = 1 AND initialNumber.6 = 1 AND initialNumber.5 = 1 AND initialNumber.4 = 1 THEN
        string_b1 := 'F';
        number_b1 := 16#F;
END_IF

---

Цитата:

---

Сообщение от NIMNUL

Доброго дня!
В результате расчёта контрольной суммы, получаю переменную тип BYTE.
В hex, пусть будет, например 16#9A.
Теперь мне нужно получить две переменные типа STRING
В одной должна лежать '9'
Во второй 'A'
Ну а дальше, опять нужно получить hex-коды девятки и буквы A.
Как сделать запись BYTE в STRING (в лоб) - не понимаю.
Есть ли у кого-нибудь идеи?

---

Oscat библиотека, там давно уже все продумано

Еще один вариант - функция WORD_TO_HEX_STR из библиотеки OwenStringUtils.