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