Records dynamisch verschachteln

[psycore]

Hallo,


ich programmiere derzeit eine Client/Server Anwendung und habe mir überlegt, die Kommunikation über Records laufen zu lassen, welche ineinander verschachtelt sind. Einen Standardtyp mit einigen Arrays festzulegen ist mir zu unflexibel.

Mal ein Beispiel damit ihr seht was ich meine:

Delphi-Quellcode:

type
   THauptrecord = record
     id: Integer;
     SubRec: TRecord;
   end; 

type
   TSubRec1 = record
     Value1: Integer;
     Value2: String;
     [...]
   end; 

type
   TSubRec2 = record
     Value1: Integer;
     Value2: String;
     [...]
   end;

Soviel zur deklaration. Beim Versenden:

Delphi-Quellcode:

Hauptrecord.id := 5;
Hauptrecord.SubRec := SubRec2;

SubRec2.Value1 := 17;
SubRec2.Value2 := 'bla';

...und dann wird Hauptrecord an den Server geschickt.


Das Problem: TRecord existiert nicht :mrgreen:

Gibts eine Möglichkeit sowas zu machen oder bin ich mit der ganzen Idee am Holzweg?


mfg & danke

psycore

[tomsel]

Für deinen Zweck könnte vielleicht eher ein varianter Record in Frage kommen??

[gammatester]

Zitat:

Zitat von psycore

Das Problem: TRecord existiert nicht

Da hat der Compiler doch wohl auch recht :) Zumindestest hast Du uns die Deklaration auch nicht verraten.

Du kannst mal unter Variant parts in records in der Hilfe nachsehen und prüfen, ob Dir diese weiterhelfen.

Gruß Gammatester

[TeronG]

Du hast aber schon sowas wie

Delphi-Quellcode:

Var
  Hauptrecord : THauptrecord;

...

SetLength(Hauptrecord,0815);
SetLength(Hauptrecord.SubRec,4711);

gemacht oder?

[Namenloser]

Kann man echt Längen von Records manuell setzen oO? Ich jedenfalls würde dir in disem Fall eindeutig zu Klassen und Streams raten. Mit Records wird das hier nur unnötig kompiziert.

[psycore]

Zitat:

Zitat von TeronG

Du hast aber schon sowas wie

Delphi-Quellcode:

Var
  Hauptrecord : THauptrecord;

...

SetLength(Hauptrecord,0815);
SetLength(Hauptrecord.SubRec,4711);

gemacht oder?

Nein, hätte mich das irgendwie weiter gebracht? :-]


Wenn ich eure Reaktionen so lese, scheint mir es ginge auf diese Weise nicht, richtig?
Naja, werde mir dann erstmal variante Records näher anschauen.


psycore

[psycore]

Ach Mist :(

Delphi-Quellcode:

type
   THauptrecord = record
    case Id: integer of         //Eigentlicher Datenrecord
      1: (SubRec1: TSubRec1);
      2: (SubRec2: TSubRec2);
   end;

type
   TSubRec1 = record
     Value1: Integer;
     Value2: String;
   end; 

type
   TSubRec2 = record
     Value1: Integer;
     Value2: String;
   end;

Typ 'TSubRec1' benötigt Finalization - nicht im varianten Record erlaubt.

Und nu? :gruebel:

[tomsel]

Oh, dann funktioniert das nur mit Strings fester Länge. Aber die benötigst du ohnehin, wenn du das Ganze als Packet über's Netz schicken willst (?).

[gammatester]

Zitat:

Zitat von psycore

Ach Mist
Typ 'TSubRec1' benötigt Finalization - nicht im varianten Record erlaubt.

Und nu? :gruebel:

Warum willst Du denn Finalization im varianten Record machen? (Was immer das bedeuten soll, geht das bei den 'neuen' extended Records)

Selbstverständlich kann man Teile eines varianten Records im Finalizationteil ansprechen (zumindest bei D3 bis D10):

Delphi-Quellcode:

type
  vr = record
        fix: integer;
        case integer of
          1: (v1: integer);
          2: (v2: boolean);
        end;
var
  xx: vr;

Initialization
  fillchar(xx, sizeof(xx), 0);
finalization
  xx.fix := 42;
  xx.v1  := 7;
  xx.v2  := false;
end.

Gruß Gammatester

[sirius]

@gammatester:
Es geht darum, dass in varianten Records keine dynamischen Variablen enthalten sein drüfen (also Strings oder dynamische Arrays). Das hat nix mit dem Finalization-Abschnitt einer Unit zu tun, sondern mit dem Ende des Gültigkeitsbereiches einer Variable.