瀏覽代碼

FIX: Crash at read error

Alexander Koblov 10 年之前
父節點
當前提交
978b622862
共有 1 個文件被更改,包括 8 次插入2 次删除
  1. 8 2
      src/feditor.pas

+ 8 - 2
src/feditor.pas

@@ -359,13 +359,19 @@ begin
     on E: EFCreateError do
       begin
         DCDebug(E.Message);
-        msgWarning(rsMsgErrECreate + ' ' + aFileName);
+        msgError(rsMsgErrECreate + ' ' + aFileName);
         Exit;
       end;
     on E: EFOpenError do
       begin
         DCDebug(E.Message);
-        msgWarning(rsMsgErrEOpen + ' ' + aFileName);
+        msgError(rsMsgErrEOpen + ' ' + aFileName);
+        Exit;
+      end;
+    on E: EReadError do
+      begin
+        DCDebug(E.Message);
+        msgError(rsMsgErrERead + ' ' + aFileName);
         Exit;
       end;
   end;