Hex nach Octal

[sakura]

Bitte einfach Testen, dass ist frei vom Kopf

Delphi-Quellcode:

procedure HexToOct(HexValue: string): string;
var
  Cur: Byte;
  Int: DWORD;
begin
  // erst einmal in einen Integer umwandeln
  StrToInt('$' + HexValue);
  // Ergebnis löschen
  Result := '';
  repeat
    Cur := Int and $07;
    Result := IntToStr(Cur) + Result;
    Int := Int shr 3;
  until Int = 0;
end;