function OctToInt(Value: string): Longint;
var
i: Integer;
int: Integer;
begin
int := 0;
for i := 1 to Length(Value) dobegin
int := int * 8 + StrToInt(Copy(Value, i, 1));
end;
Result := int;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Конвертировать восьмеричное число в целое", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!