Преобразовать целое число в восьмеричное

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

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

function IntToOct(Value: Longint; digits: Integer): string;
 var
   rest: Longint;
   oct: string;
   i: Integer;
 begin
   oct := '';
   while Value <> 0 do
   begin
     rest  := Value mod 8;
     Value := Value div 8;
     oct := IntToStr(rest) + oct;
   end;
   for i := Length(oct) + 1 to digits do
     oct := '0' + oct;
   Result := oct;
 end;

Here's the translation of the content into Russian:

Функция Delphi под именем IntToOct, которая конвертирует целочисленное значение в представление окталь (основание 8). Вот разбивка того, что код делает:

1. Функция принимает два параметра:
   • Value: целочисленное значение для конвертации.
   • digits: минимальное количество цифр, которое должно включаться в результирующую строку окталь.

2. Она инициализирует три переменные:

   • rest: временная переменная для хранения остатка операции деления.
   • oct: строка для строительства представления окталь.
   • i: целочисленный счетчик цикла.

3. Основной цикл конвертирует целочисленное значение в окталь с помощью следующих шагов:

   • Вычисляет остаток (rest) деления Value на 8 (используя оператор модуля %). Это дает нам следующую цифру в представлении окталь.
   • Делит Value на 8 (используя оператор деления /). Это эффективно сдвигает значение на одну позицию вправо.
   • Добавляет строковое представление rest к началу oct. Это строит представление окталь от правого края к левому.

4. Когда цикл заканчивается, функция добавляет ведущие нули к строке oct, чтобы обеспечить, что она имеет хотя бы digits символов.

5. Наконец, функция возвращает результирующую строку окталь.

Пример использования:

var
  Value: Longint;
begin
  Value := 123;
  ShowMessage(IntToOct(Value, 4)); // Вывод: "173"
end.

В этом примере IntToOct конвертирует целочисленное значение 123 в представление окталь с минимальным количеством цифр 4, результатом является строка "173".

Альтернативное решение: Если вы ищете более компактную реализацию, вы можете использовать встроенную функцию Delphi Format с форматным указателем %o, который специально предназначен для конвертации целочисленных значений в строки окталь:

function IntToOct(Value: Longint; digits: Integer): string;
begin
  Result := Format('%-' + IntToStr(digits) + 'o', [Value]);
end;

Эта реализация использует функцию Format с форматным указателем %o, который конвертирует целочисленное значение в строку окталь. Символ - в форматной строке обеспечивает, что результирующая строка будет заполнена ведущими нулями до достижения указанного количества digits.

Функция IntToOct конвертирует целое число в восьмеричное, выполняя процесс модульного остатка и деления на 8 до тех пор, пока не будет достигнуто ноль.

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

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