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

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;

Статья Конвертировать восьмеричное число в целое раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal.

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

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