Records dynamisch verschachteln

[gammatester]

Zitat von psycore:

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

Und nu? :gruebel:

Warum willst Du denn Finalization im varianten Record machen? (Was immer das bedeuten soll, geht das bei den 'neuen' extended Records)

Selbstverständlich kann man Teile eines varianten Records im Finalizationteil ansprechen (zumindest bei D3 bis D10):

Delphi-Quellcode:

type
  vr = record
        fix: integer;
        case integer of
          1: (v1: integer);
          2: (v2: boolean);
        end;
var
  xx: vr;

Initialization
  fillchar(xx, sizeof(xx), 0);
finalization
  xx.fix := 42;
  xx.v1  := 7;
  xx.v2  := false;
end.

Gruß Gammatester