Hi (bin neu hier in Forum )

Ich hab's bisher hier nicht gefunden. Meine Frage ist:

Kann ich einen Hex-Wert in das Octalsystem umwandeln? Wenn ja, hat da jemand ein Beispiel dafür?

goes

Bitte einfach Testen, dass ist frei vom Kopf

zusammenfalten · markieren

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;

Hai Mike_C,

ersteinmal willkommen in diesem Bord.

Ich habe im swissdelphicenter eine Funktion gefunden die Zahlen von einem beliebigen Zahlensystem in ein anderes (unterschiedliche Basis) umwandelt.

Dass es geht, ist klar.

An der Funktion arbeite ich noch.

Falls sie niemand vorher reinschreibt, schreibe ich sie, wenn ich fertig bin.

Edit : das hat man nun davon, wenn man nicht ständig auf 'Aktualisieren' klickt.

THX für eure Bemühungen.

Die Funktion von Sakura funzt, allerdings liefert sie andere Ergebnisse als der Rechner von Windows. (Hex: 25B sollte 1133 in Oct sein; bei sakuras Funktion ist Hex 25B = 4573714 in Oct).
Die andere Funktion, von swissdelphicenter kapier ich nicht. die funktionier auch nicht wirklich. Bei diesem Beispiel liefert sie einfach einen Fehler...

& go

Greetz,
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:

markieren

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

*OOPS* *OOPS*

......