tstringlist.loadfromstream liest mehr ein, als es soll

[DrUArn]

Hallo, community

als Fingerübung habe ich mal eine tpersistent abgeleitet, welches in streams Daten schreiben und lesen kann:

Delphi-Quellcode:

//Zuordnung von lesen und schreiben
procedure TStoreComponent_UA.defineproperties(filer: tfiler);
begin
  inherited;
  Filer.DefineBinaryProperty('otherdata', readotherdata,writeotherdata, true);
end;


//daten lesen
procedure tstorepersistent_UA.readotherdata(astream: tstream);
 var i:integer;
begin
astringlist.Clear;
astringlist.LoadFromStream(astream);
end;



//daten schreiben
procedure tstorepersistent_UA.writeotherdata(astream: tstream);
  var i:integer;
begin
astringlist.SaveToStream(astream);
end;

Habe ich in den Stream vorher mehr Daten eingeschrieben als in einem späteren Speicherungsprozess, kann es passieren, das beim Lesen mehr strings in der eingelesenen Liste stehen als geschrieben wurden (und zwar alles, was noch "hinter" dieser Position bis zum Ende des streams steht).
Beispiel: erste Speicherung: 100 strings, erstes Lesen: 100 strings; zweite Speicherung: 10 Strings, zweites Lesen: wieder 100 strings

Weiss astringlist.LoadFromStream(astream) nicht, wieviele strings eingelesen werden müssen - und frißt sich bis zum Ende des Streams durch -alle Daten als strings interpretierend?

Wenn ja, wie löst man dieses verhalten auf?

MfG Uwe