EReadError bei Reader.ReadListBegin

[marabu]

Hallo E.

der von dir beschriebene Fehler wird wohl von dir beim Erstellen der Datei verursacht. Vermutlich wird die Methode WriteListBegin nicht korrekt ausgeführt. Ansonsten schlage ich noch folgende Änderung vor:

Delphi-Quellcode:

// ...
// ich gehe bei Setup von einer TStringList aus
Setup.Clear;

Reader := TReader.Create(Stream,2048);
with Reader do
begin
  ReadListBegin; 
  while not EndOfList do
    Setup.Add(ReadString);  // nicht ReadStr() benutzen, siehe OH
  ReadListEnd;
  Free;
end;

// ...

Grüße vom marabu