Record- oder Klassenfelder als property zuweisen und lesen, wie?

[Uwe Raabe]

Zitat von ConnorMcLeod:

Aber die Dereferenziererei und Casterei verlangt eiserne Disziplin

Ist doch gar nicht nötig:

Delphi-Quellcode:

type
  PDataItem = ^TDataItem;
...
type
  TGenericItem = class(TObject)
  private
    FData: TDataItem;
  ...
    property Data: PDataItem read GetData;
...
function TGenericItem.GetData: PDataItem;
begin
  Result := @FData;
end;
...
var Item: TGenericItem;
...
  if Item.Data.Fieldnum < 0 then
    Item.Data.FieldNum := 1;