Главная страницаОбратная связьКарта сайта

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

Оформил: 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Конвертировать восьмеричное число в целое", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info