From 10cdbcd9122980c552ea66856b4af6e9b1444842 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 24 Aug 2015 15:00:48 +0200
Subject: [PATCH] more related to 9cca5e1b12f53f1eee7a47edd57076fada8bcf46

TWritableLfmTextComponent.readerError does not coever all the error kinds (for example error in conversion from text to bin stream)
---
 lazproj/coedit.lpi           | 1 +
 src/ce_writablecomponent.pas | 8 +-------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/lazproj/coedit.lpi b/lazproj/coedit.lpi
index 0a9baf1a..dd084833 100644
--- a/lazproj/coedit.lpi
+++ b/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"/>
diff --git a/src/ce_writablecomponent.pas b/src/ce_writablecomponent.pas
index aaed9a59..8a8a02b9 100644
--- a/src/ce_writablecomponent.pas
+++ b/src/ce_writablecomponent.pas
@@ -107,21 +107,15 @@ begin
 end;
 
 procedure TCustomWritableComponent.loadFromFile(const aFilename: string);
-var
-  err: boolean;
 begin
-  err := false;
-  fHasLoaded := false;
+  fHasLoaded := true;
   beforeLoad;
   setFilename(aFilename);
   try
     customLoadFromFile(aFilename);
   except
-    err := true;
     fHasLoaded := false;
   end;
-  if not err then
-    fHasLoaded := true;
   afterLoad;
 end;
 {$ENDREGION}