Конвертировать восьмеричное число в целоеDelphi , Синтаксис , ПреобразованияКонвертировать восьмеричное число в целое
Оформил: DeeCo function OctToInt(Value: string): Longint; var i: Integer; int: Integer; begin int := 0; for i := 1 to Length(Value) do begin int := int * 8 + StrToInt(Copy(Value, i, 1)); end; Result := int; end; Here's the translation of the text into Russian: Функция Delphi под именем Подпись функции
Функция принимает параметр Декларации переменных
Две переменные типа Основной логик
Функция итерирует через каждый символ входной строки
Выражение возвращаемого значения
Функция возвращает конвертированное целое значение, хранящееся в Альтернативное решение: В то время как это реализация работает, стоит отметить, что Delphi предоставляет встроенную функцию для конвертации строк в целые числа: Вот обновленная версия функции:
В этой реализации мы просто префиксим строку Функция OctToInt в Delphi конвертирует восьмеричное число в целое, выполняя это путем умножения итогового результата на 8 и добавления следующего цифры из исходного числа. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |