Oktalzahl zu Dezimalzahl

[Skiron]

Zitat von Illuminator-23-5:

Delphi-Quellcode:

function xToDec(Nb: string; sys: byte): integer; 
const 
  ch = '0123456789ABCDEF' 
var 
  i: integer; 
begin 
  result := 0; 
  if sys in [2..16] then begin 
    for i := 1 to length(Nb) do 
      result := result*sys + pos(upCase(Nb[i]), ch) - 1; 
  end; 
end;

wenn du unter sys nun 8 mitgibst, und unter Nb die nummer (oder IntToStr(Nummer), falls es ein integer ist), und schon dürfts klappen!