Array als Datei speichern

[Keldorn]

wenn du daten aus einem stream lädst, mußt du sie genausso einlesen, wie du sie reingeschrieben hast. Wenn sich dein Record mal erweitert, weil du der Meiniung bist, das du noch ein weiteres Feld benötigst, dann hast du ein Problem. Deine vorher gespeicherten Daten passen nun nicht mehr und du müßtest dir ein konvertierungsprogramm schreiben, das dir die alten Daten auf das neue format "anpaßt", gerade wenn du in der Entwicklung bist und du noch nicht richtig weißt, wie dein Record/Object aufgebaut ist, kostet dich das unnötig viel Zeit und kann schnell Fehler verursachen.

Es gibt da sicher noch andere Lösungsmöglichkeiten, ich hab mich dafür entschieden und bin recht glücklich damit. die "falschen" Einrückungen sind Absicht:

Delphi-Quellcode:

//Versionskonstanten fürs Speichern/Laden der Daten
const Version1  = 1;
      Version2  = 2;
      Version3  = 3;
      Version4  = 4;

      Version_neu = 4;
…
procedure TSendung.LoadFromStream(stream: TStream);
var Version:integer;
  begin
    with TReader.create(Stream,1024) do
    try
      begin
        //Version auslesen
        Version:=ReadInteger;

        Auftrag        := readstring;
        Kunde          := readstring;
        Kundennummer   := readstring;
        PLZ            := readstring;
        Ort            := readstring;
        Land           := readstring;
        VA_Typ         := ReadInteger;
        if version>=Version2 then
          begin
        Bestelldaten   := readstring;
        AuftragsArt    := readstring;
        Baunummer      := readstring;
          end;
        if version>=Version3 then
          begin
        KdNrVertretung   := readstring;
          end;
        //hier hinzufügen
      end;
    finally
      free;
    end;

end;

procedure TSendung.SaveToStream(stream: TStream);
//Daten in Stream Speichern
  begin
    with Twriter.create(Stream,1024) do
    try
      begin
        //version schreiben
        writeinteger(Version_neu);
        //Daten schreiben
        writestring(Auftrag);
        writestring(Kunde);
        writestring(Kundennummer);
        writestring(PLZ);
        writestring(Ort);
        writestring(Land);
        writeinteger(VA_Typ);
        WriteString(Bestelldaten);
        writestring(AuftragsArt);
        writestring(Baunummer);
        writestring(KdNrVertretung);
        //hier hinzufügen
      end;
    finally
      free;
    end;
  end;