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;