Hexadezimale Zahl in Registry speichern

[Pentium 80486]

Guten Abend allerseits,

ich versuche gerade verzweifelt eine Zahl 1031 als hexadezimale Zahl in die Registry zu schreiben.
Mit WriteInteger('Test', StrToInt(IntToHex(1031, 1))); wird lediglich 7 gespeichert, aber nicht die erhoffte Zahl 407.

Woran kann das liegen?

[p80286]

An der Eins?
z.B. wäre "1031,4" brauchbar.
aber verate uns doch einmal was diese Hinundherkonvertierung soll:

Delphi-Quellcode:

StrToInt(IntToHex(1031, 1));

Gruß
K-H

[Pentium 80486]

WriteInteger verlangt einen Integer und IntToHex liefert einen String. Daher StrToInt.

[Bummi]

und warum schreibst Du nicht einfach 1031....

[Pentium 80486]

Es geht hier genau gesagt um die Sprach-IDs.

Deutsch hat da die 407.
Durch folgende Funktion erhalte ich dann 1031, dezimal nehme ich an. Ich brauchre aber die 407.

Delphi-Quellcode:

var
  txt : string;
  langid : word;
begin
  langid := MAKELANGID(LANG_SPANISH,
    SUBLANG_SPANISH_DOMINICAN_REPUBLIC);

  SetLength (txt,MAX_PATH);
  SetLength (txt,
    VerLanguageName(langid,@txt[1],length(txt)));
  ShowMessage(txt);
end;

http://www.delphipraxis.net/46643-post.html

[shmia]

Folgende Varianten stehen zur Auswahl

Delphi-Quellcode:

WriteInteger('Test', 1031);                   // A
WriteInteger('Test', $407);                   // B
WriteString('Test', Format('%x', [1031]);     // C

Variante A und B machen genau das Gleiche.
Variante C schreiben den Wert 1031 als hexdezimalen string.

Ach ja, du sollst uns nicht erzählen was du über deinen eigenen Code denkst sondern
sag uns lieber den kompletten Key (z.B. HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Servic es\W32Time\Config)
innerhalb der Registry und warum und weshalb du dort etwas reinschreiben möchtest.
Und natürlich auch welchen Datentyp der Schlüssel in der Registry hat.

[Pentium 80486]

Tut mir leid, habe ich wohl vergessen.

Ist aber auch nicht weiter wichtig.
Die Variable, welche zuvor 1031 entheilt, hatte den Datentyp ShortInt. Ein Wechsel zu Integer hat Abhilfe geschaffen. Warum jedoch verstehe ich nicht.
Die sind doch beide unsigned :?

[DeddyH]

BTW: Es gibt weder dezimale noch oktale noch hexadezimale Zahlen, sondern nur die entsprechende Darstellung einer Zahl.

[Popov]

Ich sehe immer noch nicht das eigentliche Problem:

Delphi-Quellcode:

  ShowMessage('$' + IntToHex(1031, 0) ); //Ergibt $407
  ShowMessage('$' + IntToHex(1031, 2) ); //Ergibt $407
  ShowMessage('$' + IntToHex(1031, 4) ); //Ergibt $0407
  ShowMessage('$' + IntToHex(1031, 6) ); //Ergibt $000407
  ShowMessage('$' + IntToHex(1031, 8) ); //Ergibt $00000407

  //WriteString('Test', IntToHex(1031, 1));   //als String speichern, nicht Integer

Edit: Ok, ich sehe das Problem war schon gelöst

[DeddyH]

ShortInt ist nicht unsigned und geht von -128..127. Dass da keine 1031 reinpasst, sollte klar sein.

[Furtbichler]

Zitat:

Zitat von DeddyH (Beitrag 1165497)

ShortInt ist nicht unsigned und geht von -128..127. Dass da keine 1031 reinpasst, sollte klar sein.

Hast Du es schon mal mit bytefolding probiert? Du musst die Bytes übereinander falten, dann passt das. Es ist eine Art mehrdimensionales XOR auf Quantenbasis. Die Algorithmen befinden sich allerdings noch in der Ichfindungsphase :mrgreen:

[Popov]

Genau!

Delphi-Quellcode:

var
  i: Integer;
  k: ShortInt;
begin
  i := 1031;
  k := i;
  ShowMessage(IntToStr(k));
end;

Ergebnis ist 7

Oder

Code:

1031 - 128 - 128  - 128  - 128  - 128  - 128  - 128  - 128 = 7

[DeddyH]

Logisch, für 1031 brauchst Du mindestens 11 Bit, ShortInt hat aber nur 8.

[himitsu]

Und soll das nun wirklich als "String mit der hexadezimalen Darstellung einer Zahl" in die Registry
oder nicht doch einfach nur als "Integer DWORD" ?