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