Вниз
Скачать: CL | DM;

Как перевести символьное шестнадцатеричное число в целое?   Найти похожие ветки 

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
7-1082788374
Hkr
2004-04-24 10:32
2004.05.30
Скрыть из ALT-Tab


14-1084149909
Думкин
2004-05-10 04:45
2004.05.30
С днем рождения! 10 мая


3-1084362479
kalishenko
2004-05-12 15:47
2004.05.30
IbAPI


1-1084967677
TUser
2004-05-19 15:54
2004.05.30
TListItems.Add


1-1084436594
Inner
2004-05-13 12:23
2004.05.30
Срочно TTreeView подскажите!




   Наверх