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 )

[jbg]

Zitat von bernhard_LA:

wollte endlich mal sauber programmieren und mit LONG_PTR geht der Code unter XE 2 , aber nicht mehr unter DELPHI 7

Dann musst du eben auf das "alte" PAnsiChar zurückgreifen

[jaenicke]

Am saubersten ist wohl für alle Versionen:

Delphi-Quellcode:

Dec(PByte(RowRotated), ScanLineBytes); 
//Move Pointer

PAnsiChar macht das gleiche, hat aber einen gewissen Beigeschmack...

[jbg]

PByte gibt es erst seit "kurzem". PAnsiChar ist älter. Es kommt also darauf an, welche Delphi Versionen man unterstützen möchte, oder ob man einfach "type PByte = ^Byte;" selbst im Code hinterlegt.

[jaenicke]

Zitat von jbg:

PByte gibt es erst seit "kurzem". PAnsiChar ist älter.

Gut, ob es das bei Delphi 1 oder 2 schon gab, weiß ich nicht, aber weder hätte ich vermutet, dass es hier um Delphi 1 oder 2 geht (wenn es das da noch nicht gibt), noch hätte ich Delphi 3 als "seit kurzem" angesehen...

Der Code von oben funktioniert mit PByte jedenfalls auch schon bei Delphi 3, auch TRGBTriple gibt es dort.