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.:

zusammenfalten · markieren

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.:

zusammenfalten · markieren

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 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 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?

Anzahl der Felder in einem Record

Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Re: Anzahl der Felder in einem Record

Forumregeln

omata Registriert seit: 26. Aug 2004 Ort: Nebel auf Amrum 3.154 Beiträge Delphi 7 Enterprise	#2 Re: Anzahl der Felder in einem Record 19. Jan 2009, 09:40 Stichwort: Variante Records Muss man den String nicht begrenzen?
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#3 Re: Anzahl der Felder in einem Record 19. Jan 2009, 09:43 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. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

QuickAndDirty Registriert seit: 13. Jan 2004 Ort: Hamm(Westf) 1.884 Beiträge Delphi 12 Athens	#4 Re: Anzahl der Felder in einem Record 19. Jan 2009, 09:45 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. Andreas Monads? Wtf are Monads?
	Zitat

QuickAndDirty Registriert seit: 13. Jan 2004 Ort: Hamm(Westf) 1.884 Beiträge Delphi 12 Athens	#6 Re: Anzahl der Felder in einem Record 19. Jan 2009, 10:26 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. Andreas Monads? Wtf are Monads?
	Zitat

omata Registriert seit: 26. Aug 2004 Ort: Nebel auf Amrum 3.154 Beiträge Delphi 7 Enterprise	#8 Re: Anzahl der Felder in einem Record 19. Jan 2009, 10:49 Benutze TRec2 im Programm und speichere deine Daten im XML-Format.
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 43.163 Beiträge Delphi 12 Athens	#10 Re: Anzahl der Felder in einem Record 19. Jan 2009, 10:51 Welche Delphiversion nutzt du denn? Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher. my Delphi wish list : BugReports/FeatureRequests
	Zitat