Hex nach Octal

[Mike_C]

Nachtrag!

Sakuras Funktion hat nur den einen Fehler: Int wurde am Anfang nicht gesetzt.

Für alle die's interessiert, die Funktion sieht dann korrigiert so aus:

Code:

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

end;

Auf jeden Fall nochmal Danke!

8)

Mike_C