Oktalzahl zu Dezimalzahl

[Klaus01]

Delphi-Quellcode:

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

wenn es das ist was Du meinst.

Grüße
Klaus