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

[himitsu]

Es gibt in einigen API/Records oftmals Daten hinter dem Record, z.B. im Record nur NameLen und dann "eigentlich" hinter dem Record stehen die Chars des Namen.

Um im Speicher einen Zeiger auf den Namen zu haben, verwenden Viele gern sowas, aber auch char[0] name , was sich so aber nicht nach Delphi konvertieren lässt, da char[0] "keine Chars" bedeutet, aber ein name: array[0..0] of AnsiChar halt "1 Char" ergibt, womit der Record in Delphi eine falsche Größe besitzt.

[Dennis07]

Ich nutze das manchmal als leeren Typen für Typparameter generischer Typen, wenn der Typparameter egal ist. Angenommen du hast so einen Typen:

Delphi-Quellcode:

TMyGen<T> = class
  const Value = 5.56;
end;

Und du deklarierst einen leeren Typen TNil irgendwo:

Delphi-Quellcode:

TNil = record
end;

Und du willst jetzt nicht unbedingt irgendeinen spezifischen Typparameter für TMyGen<T> festlegen, dann kannst du mit einem "leeren" typen so auf Value zugleifen:
TMyGen<TNil>.Value Ich finde, so einen void-typen mit der Größe 0 (SizeOf(TNil) ergibt ja 0 ) sollte es standardmäßig in SysUtils oder so geben.