2 Case Anweisungen in einem Variant-Record?

[himitsu]

sowas geht unter Delphi nicht

einzige Lösung, leg die CASE jeweil in eigene Untertypen aus und kombinier es dann

Delphi-Quellcode:

type TObjectSet = set of 0 .. 10;

type TrtModelItemEdit = record
    Case WithEdit: Boolean Of
      True: (Edit: TPbFloatEdit);
      False: ();
  end;
  TrtModelItem = record
    Edit: TrtModelItemEdit;
    Case ObjectType: TObjectSet Of
      0: (Stream: TPbStream);
      ...
      10: (Output: TPbOutputUnit);
    end;