Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: 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 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.066 c
3-1084371769
windows
2004-05-12 18:22
2004.05.30
русский язык


1-1084856981
Прямой
2004-05-18 09:09
2004.05.30
Правильно добавить свой метод


7-1082902617
cerber1
2004-04-25 18:16
2004.05.30
Выключение компьютера


14-1083889805
Думкин
2004-05-07 04:30
2004.05.30
С днем рождения! 7 мая


1-1084809106
SergeyM
2004-05-17 19:51
2004.05.30
Кодировка в буфере





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский