Übersetzung einer C++-Zeile

[ultrasombrero]

Hallo!

Ich bin gerade dabei, ein C++-Programm nach Delphi zu übersetzen.

Bei folgender Zeile hakt es allerdings:

Code:

Val1 = *(unsigned int *)ProdKey;

Val1 ist vom Typ "unsigned int" (entspricht wohl dem Typ Cardinal unter Delphi), ProdKey ist vom Typ "unsigned char", ein Array mit 15 Chars.

Wie wandle ich die Zeile um?

[ultrasombrero]

OK, ich habs letztendlich durch probieren doch noch herausgefunden.

Obige C++-Zeile liefert das gleiche Ergebnis wie folgende Delphi-Zeilen:

Delphi-Quellcode:

  Val1 :=              Ord(ProdKey[4]);
  Val1 := Val1 * 256 + Ord(ProdKey[3]);
  Val1 := Val1 * 256 + Ord(ProdKey[2]);
  Val1 := Val1 * 256 + Ord(ProdKey[1]);

[Dax]

Oder das selbe wie diese:Val1 := PCardinal(@Prodkey[1])^; Das ist auch die korrekte Übersetzung für das, was da oben steht - sofern ich mich nicht irre

[ste_ett]

Zitat von Dax:

Oder das selbe wie diese:Val1 := PCardinal(@Prodkey[1])^; Das ist auch die korrekte Übersetzung für das, was da oben steht - sofern ich mich nicht irre

Du irrst nicht.

ProdKey ist ein Pointer auf den Array.
dieser Pointer wird umgecastet in einen Pointer auf ein unsigned int und dann dereferenziert, womit man den Wert der Stelle bekommt, auf den der Pointer zeigt.

[sniper_w]

ste_ett: genau.
Richtig wäre:

Code:

Val1 := PCardinal(@ProdKey[0])^;

sofern gilt:

Code:

var ProdKey:array[0..15]of Char;

[ultrasombrero]

Zitat von sniper_w:

ste_ett: genau.
Richtig wäre:

Code:

Val1 := PCardinal(@ProdKey[0])^;

sofern gilt:

Code:

var ProdKey:array[0..15]of Char;

Naja, das gilt eben nicht mehr, da ich in meiner Übersetzung aus dem Array of Char einen String gemacht habe, und der fängt ja eben bei 1 an zu zählen.