inkompatibel TArray<Integer> Pointer

[EWeiss]

Unter 32 Bit habe ich hier kein Problem..

Delphi-Quellcode:

var
  pXY: PPoint;

meta := Pointer(pXY);

In 64 Bit meckert der Compiler

Zitat:

[dcc64 Error] uSpriteContainer.pas(4481): E2010 Incompatible types: 'System.TArray<System.Integer>' and 'Pointer'

??

anderes Problem

Zitat:

[dcc64 Warning] uSpriteContainer.pas(6299): W1000 Symbol 'Seek' is deprecated

Delphi-Quellcode:

FileStream.Seek(AniHeader.offset - 1, soFromBeginning);

Was nehmen statt dessen ?

gruss

[Uwe Raabe]

Was ist PPoint? Das aus System.Types?

Was ist meta?

Zitat:

Zitat von EWeiss (Beitrag 1409758)

Delphi-Quellcode:

FileStream.Seek(AniHeader.offset - 1, soFromBeginning);

Was nehmen statt dessen ?

Das andere overload:

Delphi-Quellcode:

FileStream.Seek(AniHeader.offset - 1, soBeginning);

[EWeiss]

Zitat:

Was ist PPoint? Das aus System.Types

Ja..

Zitat:

Was ist meta?

Dachte das wäre ersichtlich ;)

Delphi-Quellcode:

TArray<Integer>

gruss

[mkinzler]

Zitat:

anderes Problem
Zitat:
[dcc64 Warning] uSpriteContainer.pas(6299): W1000 Symbol 'Seek' is deprecated
FileStream.Seek(AniHeader.offset - 1, soFromBeginning);
Was nehmen statt dessen ?

Nicht seek ist veraltet nur eine der 3 überladenen Versionen. Komischerweise die mit größeren möglichen Offset (64 Bit).

Delphi-Quellcode:

FileStream.Seek(AniHeader.offset - 1, TSeekOrigin.soFromBeginning);

[EWeiss]

Das funktioniert :) Danke Uwe

Delphi-Quellcode:

FileStream.Seek(AniHeader.offset - 1, soBeginning);

gruss

[Uwe Raabe]

Delphi-Quellcode:

procedure Main;
var
  meta: TArray<Integer>;
  pXY: PPoint;
begin
  meta := Pointer(pXY); // [dcc32 Fehler] Project403.dpr(31): E2010 Inkompatible Typen: 'System.TArray<System.Integer>' und 'Pointer'
end;

Funktioniert hier auch unter Win32 nicht und gibt die gleiche Fehlermeldung.

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1409772)

Delphi-Quellcode:

procedure Main;
var
  meta: TArray<Integer>;
  pXY: PPoint;
begin
  meta := Pointer(pXY); // [dcc32 Fehler] Project403.dpr(31): E2010 Inkompatible Typen: 'System.TArray<System.Integer>' und 'Pointer'
end;

Funktioniert hier auch unter Win32 nicht und gibt die gleiche Fehlermeldung.

Aber mit D2010 hatte bisher nie Probleme damit. (kann nur 32Bit)

gruss

[Uwe Raabe]

Zitat:

Zitat von EWeiss (Beitrag 1409774)

Aber mit D2010 hatte bisher nie Probleme damit.

Dann was das vermutlich ein Fehler in D2010. Eigentlich darf dieser Cast nicht funktionieren. Ein dynamisches Array verwaltet seine Länge und den Referenzzähler in einem Bereich vor dem ersten Element. Bei dem Cast ist vollkommen unklar, was dann in diesem Bereich steht. Das kann eigentlich nur schief gehen.

http://docwiki.embarcadero.com/RADSt...he_Array-Typen

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1409775)

Zitat:

Zitat von EWeiss (Beitrag 1409774)

Aber mit D2010 hatte bisher nie Probleme damit.

Dann was das vermutlich ein Fehler in D2010. Eigentlich darf dieser Cast nicht funktionieren. Ein dynamisches Array verwaltet seine Länge und den Referenzzähler in einem Bereich vor dem ersten Element. Bei dem Cast ist vollkommen unklar, was dann in diesem Bereich steht. Das kann eigentlich nur schief gehen.

http://docwiki.embarcadero.com/RADSt...he_Array-Typen

Ich glaube dir das ;)

Aber bitte siehe shot!
Das es durchläuft ohne Fehler kannst du am aktuellen Breakpoint sehen dieser ist weiter unten.

Delphi-Quellcode:

meta := Pointer(pXY);

dann ist

Delphi-Quellcode:

meta[0] := pXY.X;  
meta[1] := pXY.Y;

gruss

[Uwe Raabe]

Ich weiß ja nicht, wie du pXY zuweist. Wenn das ein Pointer auf das erste Element eines TArray<Integer> ist, dann funktioniert das natürlich, weil dann die betreffenden Speicherbereiche ja sinnvolle Werte beinhalten.