Wie dynamischer Vorfahr für generische Klasse?

[himitsu]

*ahhhhhhhhhhh* manchmal könnte man einfach nur schreien :wall:

Hab mal alles etwas umgestellt,
der Compiler meint es ginge jetzt,
aber beim Erstellen eines Testprojektes,
meint er urplötzlich nach dem Testcode (hier sogar nach dem END. der DPR)

Delphi-Quellcode:

[DCC Fataler Fehler] Project4.dpr(23): F2084 Interner Fehler: AV21F90C39-W00000014-1

Eigentlich hätte ja sowas ausgereicht, aber da es keine Möglichkeit gibt PTheRecord zu dereferenzieren...

Delphi-Quellcode:

TDoubleLinkedList<PTheRecord {: ^Record}> = Record

Nja, und Pointer ist keine gültige Beschränkung.

Delphi-Quellcode:

TDoubleLinkedList<PTheRecord: Pointer> = Record

Wenn ich aber nur den Record übergebe und den Pointer intern deklariere,

Delphi-Quellcode:

TDoubleLinkedList<TheRecord: Record> = Record
Private
  Type PTheRecord = ^TheRecord;

dann schlägt im Testcode die stenge Typenprüfung von Delphi zu

Delphi-Quellcode:

[DCC Fehler] Project4.dpr(19): E2010 Inkompatible Typen: 'PMyRec' und 'TDoubleLinkedList<TMyRec>.PTheRecord'

So, den Rest der Woche werde ich wohl keine, bzw. nicht genug Zeit haben, um (richtig) zu Programmieren. :?
Also mal sehn wann/ob ich hier wieder dazukomme weiterzumachen.


[edit]
OK, wenn man auf die Idee kommt, den internen Pointer rauszulassen, dann geht es urplötzlich :stupid:

Delphi-Quellcode:

TMyRec = Record
  List: TDoubleLinkedList<TMyRec>;
  Data: Integer;
End;
PMyRec = TDoubleLinkedList<TMyRec>.PRecord;

anstatt

Delphi-Quellcode:

PMyRec = ^TMyRec;
TMyRec = Record
  List: TDoubleLinkedList<TMyRec, PMyRec>;
  Data: Integer;
End;