Converting Octal to Decimal (konversi Octal ke desimal)

Untuk melengkapi Post sebelumnya tentang Konversi system bilangan, Saya menyertakan juga konversi  Octal (basis 8) ke Desimal.

Berikut Adalah source codenya:

Function Pangkat(Base : integer; exp: integer ): integer;
var i : integer;
begin
  result:= 1;
  for i := 1 to exp do
  begin
  result:=Result*Base;
  end;
end;

function OctToDec(Inp: String): String;
Var
  I : Integer;
  pwr : integer;
  des : integer;
  bil : Integer;
  S: String;
Begin
  Pwr:= length(Inp)-1;
  des:=0;
  For I := 0 to length(inp)-1 do
  begin
  S:= Copy(Inp,i+1,1);
  bil:=StrToInt(S);
  des:= des + (Bil*pangkat(8,pwr));
  dec(Pwr);
  end;
  Result:= IntToStr(Des);
end;

Untuk menggunakan Fungsi ini Sbb:

Var Hasil: String;

Begin

.

.

  Hasil:= OctToDec('10');