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;