Array mit verschiedenen Records

[Sidorion]

Mein Vorschlag wäre:

Delphi-Quellcode:

Type
  TRecordKind=(rkGanzAlt, rkNichtsoAlt, rkNeu, ...);
  TMyRecord= Record
   Kind: TRecordKind;
   case TRecordKind of
     rkGanzAlt:
     // hier alle Member vom alten typ
     rkNichtsoAlt:
     // hier alle Member vom alten typ
     rkNeu:
     // hier alle Member vom alten typ
     ..:
     // hier alle Member vom alten typ
   end;
  end;

Jetzt kannst Du Dir ein Array von diesen Records erstellen und abhängig vom Dateidatum den RecordKind ermitteln. Diesen schreibst Du mit in den Record und kannst dann überall im Programm wissen, welcher art dieser Record ist und dementsprechend zugreifen.
Zu dem Stream lesen: Erstelle Dir für jeden RecordKind eine Konstante, die die jeweilige Gesaamtlänge beinhaltet, dann kannst Du immer soviele Bytes einlesen.

[Apollonius]

Dann aber im richtigen Stil für variante records (kein end nach dem case!):

Delphi-Quellcode:

TMyRecord= Record
   case Kind:TRecordKind of
     rkGanzAlt:
     // hier alle Member vom alten typ
     rkNichtsoAlt:
     // hier alle Member vom alten typ
     rkNeu:
     // hier alle Member vom alten typ
     ..:
     // hier alle Member vom alten typ
   end;

[Scrutor]

Das einlesen ist nicht das Problem.
das erstellen des richtigen records nun auch nicht mehr.

nur wie sag ich der Variablen Data, dass sie mal der eine record ist und mal der andere ?

Prinzip:

Delphi-Quellcode:

var 
   Data : ???; 
begin 
  case Format of 
   0: Data:=TDaten_0; 
   1: Data:=TDaten_1; 
  end; 
end;

edit: ich find es leichter und einfacher 6 records zu erstellen, als mit den variant recordds rumzukaspern.
die 6 records sind ja schon erstellt und fertig, nur die zuweisuzng und auslesen und einem editfeld zuweisen klappt nicht

[hoika]

Hallo,

so wie du das schreiben willst, musst du für jede der 6 Versionen
eine eigene Variable mitführen.

Die 6 Records unterscheiden sich noch mal wodurch ?
Durch bestimmte String-Längen ?

Wenn ja, benutze für das Lesen/Schreiben deine 6 verschiedenen Records,
aber in allen anderen Routionen genau einen Record
(nur String als Type, nicht array[0..] of Char).

Wenn du unbedingt eine 6 records haben willst,
dann könntest du auch so vorgehen

Delphi-Quellcode:

type
  TRec1 = record
    // Daten
  end;
type
  TRec2 = record
    // Daten
  end;

..
type
  TRec6 = record
    // Daten
  end;

type
  TRecAllData : record
    iVersion: Integer; //1-6
    Rec1: TRec1;
    Rec2: TRec2;
    ..
    Rec6: TRec6;
  end;

Sie umständlich aus, ist es auch ...


Heiko

[Scrutor]

naja, ich mache dann jetzt zu den 6 verschiedenen records noch 6 proceduren, die die datei dann mit dem richtigen record auslesen.
find ich zwar unschön und irgendwie umständlich, aber es geht wohl nicht anders, bzw. ich bekomme es nicht anders hin.

vielen dank trotzdem an alle hier für ihre bemühungen


Edit: so, mit den 6 records und 6 proceduren funktioniert es nun einwandfrei.


mfg
Scrutor

[Ghostwalker]

Es reicht eigentlich 1 Routine zum lesen:

Delphi-Quellcode:

   procedure ReadFromStream(Data:Pointer;Datasize:Integer);
   begin
     Stream.Read(data^,datasize);
   end;

Je nach Typ mußt du natürlich entsprechend die Daten übergeben.