into Record?

[himitsu]

Moin, wie nennt man eigentlich das hier?

Delphi-Quellcode:

type
  TInner = record
    Value: Variant;
  end;

  TOuter = record
    Inner: TInner;
                                 _____
    property Value: Variant read Inner.Value write Inner.Value;
  end;

Ich wollte mal im QS schauen/fragen, ob die das mal erweitern könnten. (so bis spätestens nächstes Jahrtausend)

Delphi-Quellcode:

type
  TInner = record
    Value: Variant;
    procedure SetValue(const Value: Variant);
  end;

  TOuter = record
    Inner: TInner;
                                                         ________
    property Value: Variant read Inner.Value write Inner.SetValue;
  end;

Und schön wäre es auch, wenn es ebenfalls mit Record-Pointern und Klassen funktionieren würde.

Delphi-Quellcode:

type
  PInner = ^TInner;
  TInner = record
    Value: Variant;
    procedure SetValue(const Value: Variant);
  end;

  TInnerClass = class
    Value: Variant;
    procedure SetValue(const Value: Variant);
  end;

  TOuter = record
    InnerR: TInner;
    InnerP: PInner;
    InnerC: TInnerClass;

    property Value: Variant read InnerR.Value write InnerR.SetValue;
    property Value: Variant read InnerP.Value write InnerP.SetValue;
    property Value: Variant read InnerC.Value write InnerC.SetValue;
  end;