Процедура для преобразования HEX чисел в IntegerDelphi , Синтаксис , ПреобразованияПроцедура для преобразования HEX чисел в Integer
Автор: Перегинец Иван function HexToInt(s: string): integer; label gte; var tempt: string; i: integer; begin tempt := ''; if s = '' then begin HexToInt := 0; goto gte; end; for i := 1 to Length(s) do begin tempt := tempt + IntToHex(Ord(s[i]), 2); end; HexToInt := StrToInt('$' + tempt); gte: end; Here is the translation of the text into Russian: Функция Delphi, конвертирующая строку в шестнадцатеричное представление в целое число. Вот разбивка кода:
Функция работает, итерируясь по каждому символу в входной строке, конвертируя каждый символ в шестнадцатеричную строку с помощью Вот некоторые предложения по улучшению:
1. Обработка ошибок: функция не обрабатывает ошибки должным образом. Если входная строка не является корректной шестнадцатеричной представлением, функция может вернуть неправильные результаты или вызвать исключение. Рассмотрите возможность добавления обработки ошибок для проверки корректности входной строки и вызова исключения, если она не корректна.
2. производительность: функция использует временную строку Вот альтернативное реализация, которая решает эти проблемы:
Эта реализация использует одиночную переменную В статье описана процедура на языке Pascal для преобразования HEX-чисел в целочисленные значения, использующая функцию Ord и IntToHex. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |