Records dynamisch verschachteln

[psycore]

Ach Mist

Delphi-Quellcode:

type
   THauptrecord = record
    case Id: integer of         //Eigentlicher Datenrecord
      1: (SubRec1: TSubRec1);
      2: (SubRec2: TSubRec2);
   end;

type
   TSubRec1 = record
     Value1: Integer;
     Value2: String;
   end; 

type
   TSubRec2 = record
     Value1: Integer;
     Value2: String;
   end;

Typ 'TSubRec1' benötigt Finalization - nicht im varianten Record erlaubt.

Und nu?