diff --git a/ide/main.pp b/ide/main.pp index 630f9cf3b0..c4dba559dc 100644 --- a/ide/main.pp +++ b/ide/main.pp @@ -8243,8 +8243,6 @@ begin Result:=mrOk; while (AnUnitInfo.OpenEditorInfoCount > 0) and (Result = mrOK) do Result:=DoCloseEditorFile(AnUnitInfo.OpenEditorInfo[0].EditorComponent, Flags); - while (AnUnitInfo.OpenEditorInfoCount > 0) and - (DoCloseEditorFile(AnUnitInfo.OpenEditorInfo[0].EditorComponent, Flags) = mrOK) do; end; function TMainIDE.DoCloseEditorFile(AEditor: TSourceEditorInterface;