hextoint

Ответ от Gennady[гуру]
Доброго времени суток.
Hex в Bin переводится очень легко. Достаточно каждую шестнадцатиричную цифру заменить ее двоичным аналогом. Например, так
3е (16) = 111110(2)
Ессно, двоичный результат будет строкой. Если вдруг понадабится это же число в восьмеричной системе, то получившуюся двоичную строку делите справа на лево по три разряда и записываете каждый восьмеричной цифрой.
111110(2) = 76(8)
Если очень хочется можно написать, как предлагается, функцию. Это не сложно.
Тьфу... Видел, как раньше вы добивались HexToBin и ответил. А теперь посмотрел на вопрос. Так что вам надо? ToBin или ToInt? Если то беззнаковый инт, то можно так
{переводит число, заданное строкой, из системы Base в десятичную}
function BaseToDec(S: String; Base: Byte): Longint;
var
i, N, Weight : Longint;
begin
Weight := 1;
N := 0;
for i:=Length(S) downto 1 do begin
case UpCase(S[ i ]) of
'0'..'9' : N := N + (Ord(S[ i ]) - Ord('0')) * Weight;
'A'..'F' : N := N + ((Ord(S[ i ]) - Ord('A')) + 10) * Weight;
end;
Weight := Weight * Base;
end;
BaseToDec := N;
end;
Удачи!