Перевод из шестнадцатеричной системы в десятичную

[AnderoN]

Всем привет, помогите пожалуйста. У меня с микроконтроллера поступает информация, я записываю ее в массив ab, массив типа byte, информация приходит в шестнадцатеричном формате, мне надо перевести его в десятичный формат, для этого я использую функцию, код которой представлен ниже:

FUNCTION HEX2DEC(HEX: STRING): LONGINT;

FUNCTION Digt(Ch: CHAR): BYTE;

CONST
HEXDigts: STRING[16] = '0123456789ABCDEF';

VAR
I: BYTE;
N: BYTE;

BEGIN
N := 0;
FOR I := 1 TO Length(HEXDigts) DO
IF Ch = HEXDigts[i] THEN N := I - 1;
Digt := N;
END;

CONST
HEXSet: SET OF CHAR = ['0'..'9', 'A'..'F'];

VAR
J    : LONGINT;
Error: BOOLEAN;
DEC  : LONGINT;

BEGIN
DEC := 0;
Error := False;
FOR J := 1 TO Length(HEX) DO
BEGIN
IF NOT (UpCase(HEX[J]) IN HEXSet) THEN Error := True;
DEC := DEC + Digt(UpCase(HEX[J])) SHL ((Length(HEX) - J) * 4);
{ 16^N = 2^(N * 4) }
{ N SHL ((Length(HEX) - J) * 4) = N * 16^(Length(HEX) - J) }
END;
IF Error THEN HEX2DEC := 0
ELSE HEX2DEC := DEC;
END;

При написании в основном коде программы строчки

HEX2DEC (ab[i])

мне выдает ошибку, видимо потому что мой массив типа byte, а в функции перевод осуществляется для типа string. Как мне сделать, чтобы все таки мои данные перевелись в десятичную систему счисления? Помогите пожалуйста.

[AnderoN]

Вроде разобрался, но у меня возник другой вопрос. В мой массив ab от микроконтроллера идут значения, мне надо выделять из них каждые 10 пришедших значений складывать их и делить на 10 (находить среднее арифметическое), я для этого сделал цикл

while bb do (бесконечный цикл)
begin
 for i:=1 to 10 do


end;

В общем я в бесконечный цикл (т.к. заранее не известно сколько значений будет посылать микроконтроллером), пометисл цикл от 1 до 10 ( тоесть должный брать по 10 значений), подскажите как мне теперь сделать чтобы они складывались и делились на 10?

[eduard93]

Просто: получаете новое число, прибавляете его к сумме, если i=10 то делите сумму на 10.

[_Dmitry]

Стандартная функция Дельфи StrToInt понимает шестнадцатеричные числа.
Пример: INT:=StrToInt('$'+HEX);