Anzahl der Felder in einem Record

[Carsten1234]

Hallo zusammen,

gleich die Frage vorweg: Gibt es eine Routine, die die Anzahl der Felder in einem (packed) record zurück gibt?

Hintergrund: Ich habe mehrere Records unterschiedlicher Größe, möchte aber nur eine Speicherroutine schreiben.

Bsp.:

Delphi-Quellcode:

type
  TRec1 = packed record
    Field1: integer;
    Field2: string;
    Field3: string;
  end;

  TRec2 = packed record
    Field1: integer;
    Field2: string;
    Field3: string;
    Field4: string;
  end;

Interessant wäre eine erweiterte Version, die den Feldtyp erkennt und im Falle eines verschachtelten Records auch die Anzahl der Felder des "Unterrecords" bearbeitet/wiedergibt.

Bsp.:

Delphi-Quellcode:

type
  TRec1a = packed record
    Field1: integer;
    Field2: string;
    Field3: string;
  end;

  TRec1b = packed record
    Field1: integer;
    Field2: string;
  end;

  TRec1 = packed record
    Field1: integer;
    Field2: TRec1a;
    Field3: TRec1b;
    Field4: string;
  end;

  TRec2 = packed record
    Field1: integer;
    Field2: string;
    Field3: string;
    Field4: string;
  end;

Gruß, Carsten

[omata]

Stichwort: Variante Records

Muss man den String nicht begrenzen?

[Luckie]

Frag doch die Größe ab. Macht Windows genauso.

Und pass auf mit deinen Strings. Das sind nur zeiger auf einen Speicherbereich. Du müsstest hier ShortStrings verwenden.

[QuickAndDirty]

Nur wenn du den Record als Speicherstück lesen/Schreiben/Speichern/laden willst musst du einen Festen String nehmen.
Wenn du eh jedes Feld von Hand speicherst nicht.

[himitsu]

Typen welche eine Initialisierung/Finalisierung benötigen dürfen im variaten Teil des Records nicht verwendet werden.
Ergo lassen sich diese Records nicht als vaianten record vereinen.

ShortStrings würden aber gehe, da sie sowas nicht benötigen.

Außerdem kann man programmseitig (ohne weiteres Feld, welches Angibt welche Variante rad genutzt wird) nicht feststellen (nja, nicht unbedingt mit Sicherheit) welcher Typ verwendet wird.


Wieso nutzt du denn nicht nur Rec2? (es enthält, zumindestens vom Aufbau her, den Rec1)



hier würde ich sagen, verwende Rec2 und speichere nur das, was von einem Standardwert abweichet (bei String z.B. <> '')

[QuickAndDirty]

Dann ist da noch die Frage: Ist die Lösung über Records soviel eleganter als die über Objekte?
Mit Objekten könntest du dafür sorgen das jedes sich selbst serialisiert/deserialisiert.

[Carsten1234]

Zitat:

Zitat von QuickAndDirty

Dann ist da noch die Frage: Ist die Lösung über Records soviel eleganter als die über Objekte?
Mit Objekten könntest du dafür sorgen das jedes sich selbst serialisiert/deserialisiert.

Ich benutze hier den Quellcode meines Vorgängers und da wurde mit Records gearbeitet. Wenn ich das jetzt auf Objekte umstelle, erzeugt das ggf. Querschläger und es lohnt mitunter den Arbeitsaufwand im Verhältnis zum Nutzen nicht viel.

Gruß, Carsten

[omata]

Benutze TRec2 im Programm und speichere deine Daten im XML-Format.

[Carsten1234]

Zitat:

Zitat von himitsu

Wieso nutzt du denn nicht nur Rec2? (es enthält, zumindestens vom Aufbau her, den Rec1)

War jetzt auch nur ein Beispiel. In Wirklichkeit gibt es viel mehr Records mit "Unterrecords" mit viel mehr Feldern.
Es gibt ein sog. Masterrecord, dass viele Unterrecords hat. Diese Unterecords haben aber mitunter nicht nur Felder, sondern wiederum Unterecords (max. 4 Ebenen).

Gruß, Carsten

[himitsu]

Welche Delphiversion nutzt du denn?