"Datentyp" record end wer kennt ihn?

[Uwe Raabe]

Zitat von QuickAndDirty:

ein leerer inline deklarierter Record...

Eigentlich ist das nur ein Trick um einen Feldnamen für die Daten zu bekommen, die an der Stelle noch unbekannt sind.

Delphi-Quellcode:

function TVirtualNode.GetData(): Pointer;

// Returns the associated data converted to the class given in the generic part of the function.

begin
  Result := @Self.Data;
  Include(States, vsOnFreeNodeCallRequired);
end;

Oder wer's lieber generisch mag (bin gar nicht sicher, ob das wirklich nur für Klassen gilt ):

Delphi-Quellcode:

function TVirtualNode.GetData<T>: T;

// Returns the associated data converted to the class given in the generic part of the function.

begin
  Result := T(Pointer((PByte(@(Self.Data))))^);
  Include(States, vsOnFreeNodeCallRequired);
end;