Octal zu Integer und umgekehrt

[Daniel B]

Hallo,

hiermit kann man ein IntegerWert und eine Octalzahl umwandeln.

Delphi-Quellcode:

function OctToInt(sValue: String): LongInt;
var
  iFor, iRes: Integer;
begin
  iRes := 0;
  for iFor := 1 to Length(sValue) do
  begin
//    iRes := iRes * 8 +StrToInt(Copy(sValue, iFor, 1));
    iRes := iRes * 8 +(Byte(sValue[iFor]) - Byte('0')); //Besserer Vorschlag von jbg
  end;
  Result := iRes;
end;

Und so Aufrufen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(IntToStr(OctToInt('77')));
end;

Grüsse, Daniel