Ableiten von Records

[uligerhardt]

Zitat von himitsu:

Seit 2006 könnte man aber auch noch sowas machen:

Delphi-Quellcode:

TRecordBase = record
  Feld1: Integer;
  Feld2: String;
end; 
TMyNewRecord = record
private
  function GetFeld1: Integer; inline;
  ...
public
  Base: TRecordBase;
  extraData: Byte;
  property Feld1: Integer read GetFeld1 write SetFeld1;
end; 

function TMyNewRecord.GetFeld1: Integer;
begin
  Result := Base.Feld1;
end;

Das geht sogar noch wesentlich einfacher:

Delphi-Quellcode:

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

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