Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 163 • TDictionary Custom Sort 3 338 • Fast Watermark Sources 3 091 • 3D Designer 4 848 • Sik Screen Capture 3 344 • Patch Maker 3 553 • Айболит (remote control) 3 659 • ListBox Drag & Drop 3 015 • Доска для игры Реверси 81 707 • Графические эффекты 3 945 • Рисование по маске 3 249 • Перетаскивание изображений 2 629 • Canvas Drawing 2 752 • Рисование Луны 2 581 • Поворот изображения 2 190 • Рисование стержней 2 168 • Paint on Shape 1 568 • Генератор кроссвордов 2 236 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 231 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 216 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358

Главная страница

Исходники (более 1 300 исходных кодов)

Компоненты

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

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

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

Похожие по теме исходники