Перевод числа из восьмеричной системы счисления в десятичную

[Serge_Bliznykov]

Сообщение от p51x

Написано ж: один из трех вариантов по выбору пользователя - десятичное, доп.код, инверсия.

всё. понял. отдельно - десятичное, отдельно - восьмеричное в допкоде, отдельно - восьмеричная инверсия

[newerow1989]

function Perewod_iz_8_w_10(chislo: string): int64;
var i, k: integer;
    step: int64;
    s: char;
begin
   Result:=0;
   step:=1;
   For i:=Length(chislo) downto 1 do
   begin
      s:=chislo[i];
      k:=StrToInt(s);
      Result:=Result+k*step;
      step:=step*8;
   end;
end;

http://newerow1989.narod.ru/publ/per...rugie/1-1-0-29