Delphi 12 / TList unter 64 Bit funktioniert nicht mehr wie unter 11.3

[Uwe Raabe]

Wie wäre es denn damit:

Delphi-Quellcode:

type
{$IF CompilerVersion < 36.0 Delphi 12 Athens }
  TListIndex = Integer;
{$ELSE}
  TListIndex = NativeInt;
{$ENDIF}

type
  TBauteil = class(TObject)
    ID : Integer;
    Name : string;
  end;

  TBauteilList = class(TObjectList)
  private
    function GetItem(ndx: TListIndex): TBauteil;
  public
    property Items[ndx: TListIndex]: TBauteil read GetItem; default;
  end;

[Klaus01]

.. wenn Du
LBauteil2 := TBauteil(LBauteilList[LBauteilList.Count-1]); { 2 } sollte es bei beiden Varianten funktionieren.
Warum bei NativeInt ein Cast ( in Delph 11.3) notwendig ist - entzieht sich meiner Kenntnis.

Grüße
Klaus

[himitsu]

Delphi prüft/vergleicht jetzt auch Alias-Deklarationen stärker.

Delphi-Quellcode:

type
  MyInt1 = Integer;
  MyInt2 = type Integer;

Früher war MyInt1 und Integer das "Gleiche" ... jetzt eventuell nicht mehr.

z.B. auch im CodeInsight und der CodeCompletion zu sehen, wo du beim SendMessage jetzt LPARAM und WPARAM als Typen siehst, und nicht mehr Integer (Win32).

Und bezüglch NativeInt wurde früher in Win32 es überall als "Integer" angezeigt ... jetzt als "NativeInt".
In Win64 wurde NativeInt früher als irgenwas wie Int64 (weiß nicht genau) und jetzt ebenfalls als NativeInt.

Aus Sicht des Laufzeitcodes ist es nicht verständlich,
aber aus Sicht des Entwicklers ist es eigentlich schön (wobei des nett wäre, wenn beides gezeigt würde ... wie die Deklaration ist und was "wirklich" der Typ ist)

[Uwe Raabe]

Zitat von Klaus01:

Warum bei NativeInt ein Cast ( in Delph 11.3) notwendig ist - entzieht sich meiner Kenntnis.

Das default Items in TObjectList ist mit NativeInt als Index deklariert. Die Items Deklaration in TBauteilList überschreibt das nicht etwa, sondern wird als override Property interpretiert. Je nach Compiler und Typ des übergebenen Index wird nun die Variante mit Index oder die mit NativeInt verwendet.

Delphi-Quellcode:

      LBauteil1 := LBauteilList[i]; { 1 }
      LBauteil2 := LBauteilList[LBauteilList.Count-1]; { 2 }

In {1} wird ein Integer übergeben, was auf die Deklaration in TBauteilList.Items aufgelöst wird. In {2} is LBauteilList.Count aber ein NativeInt, was bei der Subtraktion erhalten bleibt. Das wird dann unter Win64 auf TObjektList.Items aufgelöst und führt zu dem Incompatible Types Fehler.

[jaenicke]

Zitat von Achim Kalwa:

Zitat von freimatz:

Warum nehmt Ihr nicht TObjectList<TBauteil>?

Historisch gewachsener Code seit Delphi 3; über 100 Listen-Klassen müssten umgebaut werden. Damals gab's die Generics noch nicht.

Damals konnte mal so etwas mit Include-Files übrigens trotzdem hinbekommen. Als dann Generics kamen, konnte ich das dann per ifdef direkt umbiegen, so dass es keine großén Änderungen gab.

Angesichts dessen, dass ja ohnehin etwas geändert werden muss, stellt sich aber hier denke ich schon die Frage, ob ein Umbau auf Generics nicht die sinnvollere Lösung wäre. Denn die Änderungen sollten sich ja auf die Klassen beschränken, die Nutzung sollte ja gleich bleiben. Bevor man da ggf. irgendwann noch einmal ran muss...

[Achim Kalwa]

[QUOTE=Uwe Raabe;1537913]Wie wäre es denn damit:

Delphi-Quellcode:

type
{$IF CompilerVersion < 36.0 Delphi 12 Athens }
  TListIndex = Integer;
{$ELSE}
  TListIndex = NativeInt;
{$ENDIF}

Genau diese Idee hatte ich auch schon. Der Anpassungsaufwand ist aber enorm; ich muss ja nicht nur die jeweiligen List-Klassen anpassen; sondern überall im Code auch die Index-Variablen.

[Achim Kalwa]

Zitat von jaenicke:

Angesichts dessen, dass ja ohnehin etwas geändert werden muss, stellt sich aber hier denke ich schon die Frage, ob ein Umbau auf Generics nicht die sinnvollere Lösung wäre. Denn die Änderungen sollten sich ja auf die Klassen beschränken, die Nutzung sollte ja gleich bleiben. Bevor man da ggf. irgendwann noch einmal ran muss...

Ein gutes Argument; Danke!
Kannst Du auch noch erklären, warum das Problem bei TBauteilList = TObjectList<TBauteil> nicht auftritt, auch wenn meine Index-Variable vom Typ "Integer" ist...

[jaenicke]

Zitat von Achim Kalwa:

Kannst Du auch noch erklären, warum das Problem bei TBauteilList = TObjectList<TBauteil> nicht auftritt, auch wenn meine Index-Variable vom Typ "Integer" ist...

Das Problem war ja, dass nicht dein typisierter Getter / Items verwendet wurde, du also ein TObject bekommen hast. Wenn der Original-Getter / Items nun den korrekten Typ liefern, passt alles.

[Achim Kalwa]

Zitat von jaenicke:

Wenn der Original-Getter / Items nun den korrekten Typ liefern, passt alles.

Ja klar; jetzt wo Du es sagst...
Dann werde ich wohl die Generics einsetzen.