"Datentyp" record end wer kennt ihn?

[QuickAndDirty]

Also ich kenne den Datentyp seit jetzt... vermutlich...

Delphi-Quellcode:

PServerHeader = ^TServerHeader;
TServerHeader= packed record
    Server:TAdresse;
    Port:Integer
    AlternativerServer: Record end;
  end;

Mann kann damit zumindest in dem code den ich mir auf github(https://github.com/lakeofsoft/vcp) angesehen habe und mit dem ich rumprobiert habe Header aus mehreren Records zusammen bauen...
Der Code sieht insgesamt so aus als wäre er Ergebnis eines C zu Pascal Transpilers.

Wer von euch kannte "Record End" schon vorher oder hat es fürher mal benutzt? Oder nutzt es heute noch?
gibt es eine bessere oder eben schönere Lösung?

[Uwe Raabe]

Zitat:

Zitat von QuickAndDirty (Beitrag 1543846)

Wer von euch kannte "Record End" schon vorher oder hat es fürher mal benutzt? Oder nutzt es heute noch?

Das kenne ich schon ziemlich lange z.B. aus VirtualTreeView und es ist auch heute noch so drin:

Delphi-Quellcode:

  TVirtualNode = packed record
...
  private
    Data: record end;        // this is a placeholder, each node gets extra data determined by NodeDataSize
  public

[freimatz]

Nun ja... Diese Syntax ist in Standard Pascal schon immer möglich gewesen. Es ist halt ein record und der Inhalt ist leer.
https://www.cs.kent.edu/~durand/CS43...ml#record-type

[himitsu]

Jupp, das ist ein NULL Byte große Typ.

In C++ wird stattdessen gern ein VOID oder ein array[0] verwendet, was aber im Delphi nicht geht, da dort das Kleinste ein array[0..0] ist, welches 1 statt 0 Items enthält.

Beachte: VOID, nicht VOID*, weil das wäre ein "Pointer".

[QuickAndDirty]

Zitat:

Zitat von Uwe Raabe (Beitrag 1543848)

Das kenne ich schon ziemlich lange z.B. aus VirtualTreeView und es ist auch heute noch so drin:

Delphi-Quellcode:

  TVirtualNode = packed record
...
  private
    Data: record end;        // this is a placeholder, each node gets extra data determined by NodeDataSize
  public

OMG Das ist ein ziemlich cleverer Nutzen, wenn man Komponentenanbieter ist.

Ich nehme an das ganze funtkioniert nicht mit Managed Records oder?

Zitat:

Zitat von freimatz (Beitrag 1543850)

Nun ja... Diese Syntax ist in Standard Pascal schon immer möglich gewesen. Es ist halt ein record und der Inhalt ist leer.
https://www.cs.kent.edu/~durand/CS43...ml#record-type

Ich wusste davon halt lange nichts.
Ich meine mir war klar das es irgendwie alt ist, aber habe das vorher nie gesehen .
Und ich habe in der Schule noch Pascal im Informatik Untericht gelernt!!! Also ich bin alt.

Zitat:

Zitat von himitsu (Beitrag 1543852)

Jupp, das ist ein NULL Byte große Typ.
In C++ wird stattdessen gern ein VOID oder ein array[0] verwendet, was aber im Delphi nicht geht, da dort das Kleinste ein array[0..0] ist, welches 1 statt 0 Items enthält.
Beachte: VOID, nicht VOID*, weil das wäre ein "Pointer".

Interessant. aber sowas als parameter gibt es nicht oder ? So eine are "gib irgend einen Record rein" parameter?

[Uwe Raabe]

Zitat:

Zitat von QuickAndDirty (Beitrag 1543854)

Und ich habe in der Schule noch Pascal im Informatik Untericht gelernt!!! Also ich bin alt.

Zu meiner Schulzeit gab es noch nicht mal ein Fach Informatik...

[himitsu]

Zitat:

Ich nehme an das ganze funtkioniert nicht mit Managed Records oder?

warum nicht?

Also dieser "leer record" selbst hat nichts mit Managed zu tun, bzw. auch einen Managed Record kannst du ohne "Fields" deklarieren.

Und was den VST betrifft, wenn/da er auch normale Managed Types (String, DynArray, Variant oder Interface) beherschen sollte, wäre da prinzipiell auch ein Managed Record mit abgedeckt.

Delphi-Quellcode:

prodedure Test(var Irgendwas);

prodedure Test(const Irgendwas);

Aber drin mußt du dann selbst casten, da es innen nur die Referenz gibt, aber leider keine TypeInfo.

Da muß man dann schon auf Generics übergehn, so ala

Delphi-Quellcode:

prodedure Test<T>(Irgendwas: T);

.

[himitsu]

Delphi-Quellcode:

var
  Data1: record end;

  Data2: record 
    i: Integer;
  end;

Delphi-Quellcode:

type
  TRecordA = record
    i: Integer;
  end;

  TRecordB = record
    x: Integer;
    y: TRecordA;
  end;


  TRecordC = record
    x: Integer;
    y: record;
      i: Integer;
    end;
  end;

Das ist ein Nested-Type, also ein Typ, der inline (nicht explizit) deklariert wird,
aber teilweise fehlen ihm einige TypeInfos, womit generische Zugriffe darauf schwer bis garnicht möglich sind.

[QuickAndDirty]

Ich nehme an "Record end;" funktioniert nur in Records?
Weil in FMX haben wir ja sehr nützliche

Delphi-Quellcode:

TagObject:TObject;
TagString:String;
Tag:NativeInt;

Aber sowas wie

Delphi-Quellcode:

TagRecord:Record end;

Ginge vermutlich nicht?
So ein Typ für irgendeinen gemanagden Record.

Edit:
!!!heilige Scheiße!!!
Ich habe jetzt erst verstanden dass "record end;" kein einfacher Typ ist sondern ein leerer inline deklarierter Record...
Sorry , dass ich mich so dumm angestellt habe...danke das ihr am Ball geblieben seid und mir das weiter erklärt habt.

[himitsu]

Jupp, im Prinzip ist das

Delphi-Quellcode:

var
  TagRecord: record end;

sowas

Delphi-Quellcode:

type
  VOID = record end;
var
  TagRecord: VOID;

[Uwe Raabe]

Zitat:

Zitat von QuickAndDirty (Beitrag 1543861)

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 :gruebel:):

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

Delphi-Quellcode:

char[0] name

, was sich so aber nicht nach Delphi konvertieren lässt, da char[0] "keine Chars" bedeutet, aber ein

Delphi-Quellcode:

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

Delphi-Quellcode:

TNil

irgendwo:

Delphi-Quellcode:

TNil = record
end;

Und du willst jetzt nicht unbedingt irgendeinen spezifischen Typparameter für

Delphi-Quellcode:

TMyGen<T>

festlegen, dann kannst du mit einem "leeren" typen so auf

Delphi-Quellcode:

Value

zugleifen:

Delphi-Quellcode:

TMyGen<TNil>.Value

Ich finde, so einen void-typen mit der Größe 0 (

Delphi-Quellcode:

SizeOf(TNil)

ergibt ja

Delphi-Quellcode:

0

) sollte es standardmäßig in SysUtils oder so geben.