Ableiten von Records

[uligerhardt]

Zitat von himitsu:

property Feld1: Integer read Base.Base.Feld1 write Base.Base.Feld1; .
hatte sowas auch mal versucht und bei mir ging es damals irgendwie auch nicht.

Also, das compiliert:

Delphi-Quellcode:

  TRecordBase = record
    Feld1: Integer;
    Feld2: string;
  end;

  TMyNewRecord = record
  public
    Base: TRecordBase;
    extraData: Byte;
    property Feld1: Integer read Base.Feld1 write Base.Feld1;
  end;

  TMyNewRecord2 = record
  public
    Base: TMyNewRecord;
    extraData: Byte;
    property Feld1: Integer read Base.Base.Feld1 write Base.Base.Feld1;
  end;

Ob's auch in komplizierteren Fällen compiliert und vor allem auch funktioniert, hab ich jetzt nicht ausprobiert.

Zitat von himitsu:

PS: Das Inline optimiert den Getter/Setter eh weg. (also bei einem Objekt)

OK. Aber schreiben musste das Ding trotzdem.