Speichern einer Kombination aus dynamischen Arrays, statischem Array und Record

[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

[Keldorn]

macht nix, ich hatte ja schon selber Panik, was ich dem BSP zur frühen Morgenstunde vergessen haben könnte

[himitsu]

Zitat von Bummi:

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

Kommt drauf an, entweder ein eine Längenangabe davor, so wie man es mit der Längenangabe des Delphi-String sieht.
Oder es als Liste markieren/umfassen, mit ListBegin und ListEnd.
Oder einfach nur mit ListEnd das Ende der Liste markieren, so wie man es mit der #0 beim PChar macht.

Bei dem Stream würde ich es also noch mit Blöcken versehn, dann braucht man halt nicht die Anzahl der Personen, da man auf das Ende des Personen-Blocks prüfen kann.

PS: Dann ist es sogar möglich die Datei ohne jegliche Kenntnis des Formats auszulesen, so wie es bei einer XML auch möglich ist.
Wenn man es also ordentlich ausbaut, dann ergibt das quasi eine Art binäre XML-Datei, nur ohne Attribute.

[DELPHI]var stream: TStream;
writer: TWriter;
ip, ig: Integer;
begin
Stream := TFilestream.create(Dateiname,fmcreate);
try
Writer := TWriter.Create(Stream, 4096);
try
Writer.WriteInteger(aktuelleVersion);
for ip := Low(Person) to High(Person) do begin
Writer.WriteString(Person[ip].name);
Writer.WriteInteger(Integer(Person[ip].Geschlecht));
Writer.WriteInteger(Person[ip].groesse);
Writer.WriteListBegin;
for ig := Low(Person[ip].gewichte) to High(Person[ip].gewichte) do begin
Writer.WriteDate(Person[ip].gewichte[ig].iDatum);
Writer.WriteDou

[ThorZten]

Guten Morgen noch einmal.

Erst einmal vielen Dank für die zahlreichen Antworten!
Ich muss das Geschriebene jetzt erst einmal verarbeiten. Danke!