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

[Uwe Raabe]

Zitat von swestner:

Oder kann pauschal immer

property Items[Index: NativeInt]: TSupBook read GetItems; default;

verwendet werden?

Genau so ist das gedacht.

[Achim Kalwa]

Zitat von Uwe Raabe:

Zitat von swestner:

Oder kann pauschal immer

property Items[Index: NativeInt]: TSupBook read GetItems; default;

verwendet werden?

Genau so ist das gedacht.

Sorry für das Aufwärmen eines alten Threads:
Gibt es eine abwärtskompatible Lösung? Wir stellen gerade von D11.3 auf D12.1 um und sind dabei auf obige Problematik bei Win64 gestoßen. Gibt es eine Lösung, die sowohl mit D11 als D12 funktioniert? Bei D11 ist ja TList (bzw. TObjectList).Items[Index: Integer] deklariert; und bei D12 als NativeInt.

Wie weiter oben schon vorgeschlagen könnte ich mittels {$IFDEF WIN32} type NativeInt = Integer;{$ENDIF} einbauen; aber an manchen Stellen wie z.B. der Windows-API wird dann noch wieder der "echte" NativeInt verwendet.

TIA
Achim

[Uwe Raabe]

Bei welchem Code habt ihr denn Probleme?

[Achim Kalwa]

Zitat von Uwe Raabe:

Bei welchem Code habt ihr denn Probleme?

Im Grunde so wie oben im 1. Beitrag schon beschrieben; hier mal mein Beispiel:

Delphi-Quellcode:

uses
  ..., Contnrs;
type
  TBauteil = class(TObject)
    ID   : Integer;
    Name : string;
  end;

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

{ TBauteilList }

function TBauteilList.GetItem(ndx: Integer): TBauteil;
begin
  Result := TBauteil(inherited Items[ndx]);
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  LBauteilList : TBauteilList;
  LBauteil1    : TBauteil;
  LBauteil2    : TBauteil;
  i            : Integer; { 3 }
begin
  LBauteilList := TBauteilList.Create(True);
  try
    for i := 0 to LBauteilList.Count-1 do
    begin
      LBauteil1 := LBauteilList[i];                    { 1 }
      LBauteil2 := LBauteilList[LBauteilList.Count-1]; { 2 }

      if Assigned(LBauteil1) and Assigned(LBauteil2) then ;
    end;
  finally
    LBauteilList.Free;
  end;
end;

(Ja, die Liste ist leer. Aber es geht um einen Fehler beim compilieren für Win64.)

Delphi 11.3: compiliert ohne Fehler.
Delphi 12.1: In der mit { 2 } markierten Zeile "E2010 Incompatible types: 'TBauteil' and 'TObject'"

Tausche ich in der Klasse TBauteilList den Datentyp für ndx in "NativeInt", dann dreht sich das Verhalten um:

Delphi 11.3: In der mit { 1 } markierten Zeile: "E2010 Incompatible types: 'TBauteil' and 'TObject'"
Delphi 12.1: compiliert ohne Fehler.

Nächster Versuch:
Die Laufvariable "i" (Markierung { 3 }) ändern von Integer nach NativeInt:

Delphi 11.3: Fehler in der Zeile { 2 }
Delphi 12.2: kein Fehler.

Gibt es eine allgemeingültige Lösung?
Von dieser Art Listen -- von TObjectList abgeleitet -- haben wir jede Menge.

Gruß

[freimatz]

Warum nehmt Ihr nicht TObjectList<TBauteil>?

[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.

[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

[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...