DXE2; X64; Type cast

[bernhard_LA]

unter x32 ist folgende Code clean :

type TRGBArray = ARRAY[0..0] OF TRGBTriple;

pRGBArray = ^TRGBArray;


procedure .....
var : RowRotated : pRGBArray;
begin
.....
Dec(Integer(RowRotated), ScanLineBytes); //Move Pointer
end;


unter XE2 und x64 compiler folgender Fehler:

[DCC Fehler] Unit1.pas(3327): E2064 Der linken Seite kann nichts zugewiesen werden


ich denke der TypeCast Integer (..) geht nicht mehr unter x64, wie müsste der code denn sauber
formuliert lauten ?

[SirThornberry]

(Integer war schon immer falsch da vorzeichenbehaftet. Speicheradressen sind nie negativ)
Integer ist hier falsch weil Integer 32 bit bleibt. Daher NativeInt bzw. NativeUInt oder besser bzw. richtig: LONG_PTR.

[Uwe Raabe]

Da bei XE2 die Pointer-Arithmetik standardmäßig eingeschaltet ist, kann man den Pointer auch direkt einsetzen. Aber Achtung: dann muss mann die Schrittweite beachten! Die Hilfe sagt dazu:

Zitat:

Wenn X ein Zeigertyp ist, wird X um N-mal der Größe des Typs, auf den gezeigt wird, dekrementiert. Für

type PMyType = ^TMyType;

und

var P: PMyType;

verringert die Anweisung Dec(P) P um SizeOf(TMyType).

[SirThornberry]

funktioniert daher bei seinem Beispiel nicht. "Scanlinebytes" lässt vermuten das durch incrementieren die Zeile gewechselt werden soll. Und eine Zeile hat nicht zwangsläufig als Größe ein Vielfaches eines Pixels.

[Uwe Raabe]

Zitat von SirThornberry:

funktioniert daher bei seinem Beispiel nicht. "Scanlinebytes" lässt vermuten das durch incrementieren die Zeile gewechselt werden soll.

Deshalb ja auch meine Anmwerkung.

Zitat von SirThornberry:

Und eine Zeile hat nicht zwangsläufig als Größe ein Vielfaches eines Pixels.

Aber ganz sicher hat eine Zeile als Größe ein Vielfaches der eines Pixels. Dieses Vielfache ist exakt die Anzahl der Pixel pro Zeile.

[bernhard_LA]

wollte endlich mal sauber programmieren und mit LONG_PTR geht der Code unter XE 2 , aber nicht mehr unter DELPHI 7
(wir haben alle alle Delphi Version im Team / Projekt )