Speichern einer Kombination aus dynamischen Arrays, statischem Array und Record

[ThorZten]

Guten Morgen!
Ich suche nach einer Lösung, wie ich am Einfachsten die folgende Datenstruktur speichern kann. Darin befinden sich ein dynamisches Array, ein statisches Array und zudem noch ein Record. Gefunden habe ich dazu Lösungen, wie man ein dynamisches und ein statisches Array separat speichert, aber nicht die Kombination aus beiden.

Meine Frage:
Wie kann ich die folgende Struktur in einer Datei speichern und wieder auslesen?
Soll ich lieber komplett auf das statische Array verzichten? Würde es das erleichtern? Ich hatte erst versucht, beide Arrays in zwei verschiedenen Dateien zu speichern, aber schöner wäre es, die Struktur nicht auseinander zu ziehen.

Code:

type
  TGewichte = record
      iDatum  : TDateTime;
      iGewicht: double;
    end;

  TPerson = record
    name      : String[10];
    geschlecht: (m,w);
    groesse   : Integer;
    gewichte  : array of TGewichte;    // dynamisches Array
  end;

var
  Person: array [1..4] of TPerson;    // statisches Array

Vielen Dank schon einmal für Eure Anregungen!

Beste Grüße,
Thorsten

[Medium]

Das schreit mehr nach einer Datenbank (ggf. embedded), oder zumindest XML.

[Keldorn]

Hallo,

persönlich würd ich mich für einen Stream und Twriter und Treader entscheiden
so als idee:

Delphi-Quellcode:

Var stream:Tstream;
    writer:Twriter;
    ip,ig:integer;
begin
  Stream:=TFilestream.create(Dateiname,fmcreate);
  try
    writer:=TWriter.Create(stream,4096);
    try
      Writer.WriteInteger(aktuelleVersion);
      //erstmal ne "Version reinschreiben, hier kannst du dann später beim auslesen darauf reagieren
      // (z.B. weil du ab Version5 10 statt 4 Personen hast)
      for ip:=1 to 4  do
        begin
          Writer.WriteStr(Person[ip].name);
          Writer.WriteInteger(Integer(Person[ip].Geschlecht));
          Writer.WriteInteger(Person[ip].groesse);

          //Länge des Arrays reinschreiben
          Writer.WriteInteger(length(Person[ip].gewichte));
          //und nun die einzelnen Gewichte
          for ig:=Low(Person[ip].gewichte) to High(Person[ip].gewichte) do
            begin
              Writer.WriteDate(Person[ip].gewichte[ig].iDatum);
              Writer.WriteDouble(Person[ip].gewichte[ig].iGewicht);
            end;
        end;
    finally
      writer.Free;
    end;
  finally
    Stream.free;
  end;
end;

Das kannst du dir immer noch weiter in einzelne Procs zu besseren Lesbarkeit aufteilen.
Persönlich würde ich aber auch person als dynamisches Array anlegen und statisches und dynamisches nicht mischen.

Auslesen dann genaus andersrum mit Treader und readXYZ.

Gruß Frank

[Bummi]

wenn Du Dich für Stream statt Datenbank/XML entscheiden solltest, im obigen Beispiel fehlt noch die Anzahl der Personen.

[Keldorn]

Zitat von Bummi:

wenn Du Dich für Stream statt Datenbank/XML entscheiden solltest, im obigen Beispiel fehlt noch die Anzahl der Personen.

er hats ja statisch deklariert, also
for ip:=1 to 4 do

[Bummi]

@Keldorn

sorry, ich war blind