Ableiten von Records

[himitsu]

Zitat von mleyen:

Afaik gibt es keinen sauberen Weg.
Entweder man macht es so wie du (immer weiter das 'abzuleitende' Record als seperate Eigenschaft kapseln) oder man macht eine Klasse draus.

Andersfalls bleiben nur noch Redefinierungen und dann Zeigerfummeleien.


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;

[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;

[SirThornberry]

Das bringt mich nur kein Stückchen Weiter.
Dann müsste ich ja für jedes Feld in meinem Record (sind etwa 30 Stück) ein Property definieren.
Und wenn ich irgendwann von TMyNewRecord auf diese Art "ableite" bezweifle ich das er dann auf eben die gleiche Weise auf Feld1 von Base zugreifen würde:

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;

  TMyNewRecordV2 = record
  public
    Base: TMyNewRecord;
    extraData2: Byte;
    property Feld1: Integer read Base.Feld1 write Base.Feld1; // <== funktioniert nicht da bei read und write Felder erwartet werden
  end;

[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.
(nja, die letzen Male, wo ich sowas gätte gebrauchen können, da hab ich eh intervaces genutzt, wo sowieso keine Zugriffe auf Felde möglich sind)

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

[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.

[himitsu]

Zitat von uligerhardt:

OK. Aber schreiben musste das Ding trotzdem.

Autovervollständigung, Copy&Paste und nach 'ner Weile schreibt man sowas blind in wenigen Sekunden dahin.

[pustekuchen]

Hallo,

*thread ausgrab*

gab es Verbesserungen in den letzten Delphi bezüglich der Vererbung von Records?

[uligerhardt]

Zitat von SirThornberry:

Das bringt mich nur kein Stückchen Weiter.
Dann müsste ich ja für jedes Feld in meinem Record (sind etwa 30 Stück) ein Property definieren.

Es ist immerhin eine Lösung, die man an einer zentralen Stelle implementieren kann, statt quer durch den ganzen Quellcode zu gehen und Casts einzubauen . Und mit etwas Makrotrickserei ist das auch kein Riesenaufwand.