Преглед на файлове

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
     on E: EFCreateError do
       begin
       begin
         DCDebug(E.Message);
         DCDebug(E.Message);
-        msgWarning(rsMsgErrECreate + ' ' + aFileName);
+        msgError(rsMsgErrECreate + ' ' + aFileName);
         Exit;
         Exit;
       end;
       end;
     on E: EFOpenError do
     on E: EFOpenError do
       begin
       begin
         DCDebug(E.Message);
         DCDebug(E.Message);
-        msgWarning(rsMsgErrEOpen + ' ' + aFileName);
+        msgError(rsMsgErrEOpen + ' ' + aFileName);
+        Exit;
+      end;
+    on E: EReadError do
+      begin
+        DCDebug(E.Message);
+        msgError(rsMsgErrERead + ' ' + aFileName);
         Exit;
         Exit;
       end;
       end;
   end;
   end;