paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Vincent to fix TReader.ReadCollection calling clear() logic

Browse Source 
git-svn-id: trunk@11348 -
This commit is contained in:
Almindor 2008-07-07 21:21:44 +00:00
parent f07b132292
commit 3195d8bd79
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/objpas/classes/reader.inc
View File

@ -740,7 +740,8 @@ var
Item: TCollectionItem;
begin
Collection.BeginUpdate;
Collection.Clear;
if not EndOfList then
Collection.Clear;
while not EndOfList do begin
ReadListBegin;
Item := Collection.Add;