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?

An der Eins?
z.B. wäre "1031,4" brauchbar.
aber verate uns doch einmal was diese Hinundherkonvertierung soll:
StrToInt(IntToHex(1031, 1)); Gruß
K-H

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

und warum schreibst Du nicht einfach 1031....

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.

zusammenfalten · markieren

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

Folgende Varianten stehen zur Auswahl

markieren

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.

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

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

Ich sehe immer noch nicht das eigentliche Problem:

markieren

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

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