more related to 9cca5e1b12

TWritableLfmTextComponent.readerError does not coever all the error kinds (for example error in conversion from text to bin stream)

lazproj/coedit.lpi

@@ -317,6 +317,7 @@
       <Unit34>
         <Filename Value="..\src\ce_writablecomponent.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="ce_writableComponent"/>
       </Unit34>
       <Unit35>
         <Filename Value="..\src\ce_sharedres.pas"/>

src/ce_writablecomponent.pas

@@ -107,21 +107,15 @@ begin
 end;
 
 procedure TCustomWritableComponent.loadFromFile(const aFilename: string);
-var
-  err: boolean;
 begin
-  err := false;
+  fHasLoaded := true;
-  fHasLoaded := false;
   beforeLoad;
   setFilename(aFilename);
   try
     customLoadFromFile(aFilename);
   except
-    err := true;
     fHasLoaded := false;
   end;
-  if not err then
-    fHasLoaded := true;
   afterLoad;
 end;
 {$ENDREGION}