Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 370 • TDictionary Custom Sort 6 409 • Fast Watermark Sources 6 194 • 3D Designer 9 147 • Sik Screen Capture 6 524 • Patch Maker 6 928 • Айболит (remote control) 6 912 • ListBox Drag & Drop 5 793 • Доска для игры Реверси 96 820 • Графические эффекты 7 128 • Рисование по маске 6 441 • Перетаскивание изображений 5 300 • Canvas Drawing 5 665 • Рисование Луны 5 374 • Поворот изображения 4 917 • Рисование стержней 3 500 • Paint on Shape 2 760 • Генератор кроссвордов 3 632 • Головоломка Paletto 2 929 • Теорема Монжа об окружностях 3 736 • Пазл Numbrix 2 465 • Заборы и коммивояжеры 3 145 • Игра HIP 2 107 • Игра Go (Го) 2 036 • Симулятор лифта 2 396 • Программа укладки плитки 2 093 • Генератор лабиринта 2 550 • Проверка числового ввода 2 239 • HEX View 2 562 • Физический маятник 2 180

Главная

Исходники (более 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;

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

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