Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Вниз
Как перевести символьное шестнадцатеричное число в целое? Найти похожие ветки
← →
sachem (2004-05-18 15:28) [0]Допустим есть
String h="3241215EC";
Надо перевести цело int.
← →
Курдль © (2004-05-18 15:33) [1]И что здесь сложного? Лень подумать?
← →
Digitman © (2004-05-18 15:36) [2]
> sachem (18.05.04 15:28)
даже не начинай ... это жутко сложно ..
← →
MegaVolt (2004-05-18 15:37) [3]StrToInt("0x"+h);
← →
Ajax © (2004-05-18 17:01) [4]В KOL есть соответствующая функция
function Hex2Int( const Value : String) : Integer;
var I : Integer;
begin
Result := 0;
I := 1;
if Value = "" then Exit;
if Value[ 1 ] = "$" then Inc( I );
while I <= Length( Value ) do
begin
if Value[ I ] in [ "0".."9" ] then
Result := (Result shl 4) or (Ord(Value[I]) - Ord("0"))
else
if Value[ I ] in [ "A".."F" ] then
Result := (Result shl 4) or (Ord(Value[I]) - Ord("A") + 10)
else
if Value[ I ] in [ "a".."f" ] then
Result := (Result shl 4) or (Ord(Value[I]) - Ord("a") + 10)
else
break;
Inc( I );
end;
end;
Copyright (C) Vladimir Kladov, 2000-2003.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c
