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

[Daniel B]

Hallo,

hier ist auch schon das Gegenstück dazu:

Delphi-Quellcode:

function IntToOct(iValue: LongInt): String;
var
  iRest: LongInt;
  sOct: String;
  iFor: Integer;
begin
  sOct := '';
  while iValue > 0 do
  begin
   iRest := iValue mod 8;
   iValue := iValue div 8;
   sOct := IntToStr(iRest) + sOct;
  end;
  Result := sOct;
end;

So aufrufen:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(IntToOct(100));
end;

Grüsse, Daniel

[jbg]

Zitat von Daniel B:

StrToInt(Copy(sValue, iFor, 1));

Das kannst du doch sicherlich schöner und vor allem schneller.
StrToInt(sValue[iFor])); Und noch schneller:
(Byte(sValue[iFor]) - Byte('0'));