Конвертировать восьмеричное число в целое

Delphi , Синтаксис , Преобразования

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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 под именем OctToInt, которая конвертирует строку восьмиричной (основы 8) в целое число. Вот разбивка кода:

Подпись функции

функция OctToInt(Значение: строка): Longint;

Функция принимает параметр Value типа строка и возвращает значение типа Longint.

Декларации переменных

переменные
  i: целое число;
  int: целое число;
begin

Две переменные типа целое число объявлены: i и int. i используется как итератор, а int используется для хранения конвертированного целого значения.

Основной логик

int  := 0;
for i  := 1 до Длины(Значение) do
begin
  int  := int  * 8  + StrToInt(Copy(Значение, i, 1));
end;

Функция итерирует через каждый символ входной строки Value с помощью цикла for. Для каждого символа:

• Текущее значение int умножается на 8 (поскольку восьмиричная имеет основу 8).
• Текущий символ конвертируется в целое число с помощью StrToInt, и его значение добавляется к int.
• После обработки всех символов, финальное значение int хранится в переменной Результат.

Выражение возвращаемого значения

Результат  := int;
end;

Функция возвращает конвертированное целое значение, хранящееся в int.

Альтернативное решение:

В то время как это реализация работает, стоит отметить, что Delphi предоставляет встроенную функцию для конвертации строк в целые числа: StrToInt. Вы можете использовать ее напрямую с аргументом Value строки. Результат будет автоматически конвертирован из восьмиричной в десятичную.

Вот обновленная версия функции:

функция OctToInt(Значение: строка): Longint;
begin
  Результат  := StrToInt('0'  + Значение);
end;

В этой реализации мы просто префиксим строку Value символом '0' (чтобы указать восьмиричную) и передадим ее функции StrToInt, которая конвертирует строку в целое число. Этот подход более компактен и проще для поддержки, чем оригинальная реализация.

Функция OctToInt в Delphi конвертирует восьмеричное число в целое, выполняя это путем умножения итогового результата на 8 и добавления следующего цифры из исходного числа.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Преобразования ::