Пользователь
Добро пожаловать,
Регистрация или вход
Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная
Аккаунт
Пользователи
Опросы
Поиск по сайту
Новости RSS
Форум
Отправить другу
Связаться с нами
Книги
Самоучители
Каталог софта
Исходники
Компоненты
Обработки 1С
CMS-центр
Шаблоны сайтов
Наборы иконок
Статьи и обзоры
Вопросы и ответы
Скрипты
Нетематичное
Ваше мнение
Какой язык программирования вы используете ?
ASP
Delphi
C/C++
Basic
PHP
Pascal
Java
Другой
Результаты
Другие опросы
Всего голосов:
1968
Комментарии:
10
Наши партнеры
Статистика
Статьи и обзоры
Главная
Лучшие
Популярные
Список
Добавить
Преобразова
ни
е HEX в Integer
Рассмотрим два способа преобразова
ни
я HEX в Integer. Один - простой, второй - альтернативный.
Реше
ни
е 1
Код
var
i : integer
s : string;
begin
s := '$' + ThatHexString;
i := StrToInt(a);
end;
Реше
ни
е 2
Код
CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);
VAR str : String;
Int,
i : integer;
BEGIN
READLN(str);
Int := 0;
FOR i := 1 TO Length(str) DO
IF str[i] < 'A' THEN Int := Int * 16 + ORD(str[i]) - 48
ELSE Int := Int * 16 + HEX[str[i]];
WRITELN(Int);
READLN;
END.
Разместил:
admin
| | Прочитано: 30942 | |
Смотрите также связанные новости
25.12.2024 -
Кроссворд на Delphi
25.12.2024 -
Рождение, жизнь и гибель формы
25.12.2024 -
Воспроизводим Flash-файл в своем приложении
25.12.2024 -
Работа с потоками в Delphi
25.12.2024 -
SQL-запросы в Delphi
25.12.2024 -
BlobField как Bitmap
25.12.2024 -
Запись и чтение чисел в BLOB-поле
Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста
войдите или зарегистрируйтесь
.
Внимание! Если у вас не получилось найти нужную информацию, используйте
рубрикатор
или воспользуйтесь
поиском
.
Статьи
и
обзоры
Delphi
и
TurboPascal
Преобразование
HEX
в
Integer
Рассмотрим
два
способа
преобразования
Integer
Один
простой
второй
альтернативный
Решение
Кодvar
integer
string
begin
&
#039
$&
ThatHexString
StrToInt
КодCONST
ARRAY[&
A&
F&
INTEGER
String
BEGIN
READLN