fix, element must be deleted in reverse order

This commit is contained in:
Basile Burg 2015-02-19 06:05:53 +01:00
parent 50d0d4c0c5
commit 473cb00c0e
1 changed files with 1 additions and 1 deletions

View File

@ -670,7 +670,7 @@ begin
if ce_common.dlgOkCancel( if ce_common.dlgOkCancel(
'last project modifications are not saved, quit anyway ?') <> mrOK then 'last project modifications are not saved, quit anyway ?') <> mrOK then
exit; exit;
for i := 0 to fMultidoc.documentCount-1 do for i := fMultidoc.documentCount-1 downto 0 do
if not fMultidoc.closeDocument(i) then exit; if not fMultidoc.closeDocument(i) then exit;
canClose := true; canClose := true;