--- Merging r14891 into '.':

U    rtl/objpas/classes/stringl.inc

# revisions: 14891
------------------------------------------------------------------------
r14891 | joost | 2010-02-12 16:44:56 +0100 (Fri, 12 Feb 2010) | 1 line
Changed paths:
   M /trunk/rtl/objpas/classes/stringl.inc

 * Fixed mem-leaks
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@14986 -

rtl/objpas/classes/stringl.inc

@@ -757,8 +757,11 @@ Var
         TheStream : TFileStream;
 begin
   TheStream:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
-  LoadFromStream(TheStream);
-  TheStream.Free;
+  try
+    LoadFromStream(TheStream);
+  finally
+    TheStream.Free;
+  end;
 end;
 
 
@@ -823,8 +826,11 @@ Var TheStream : TFileStream;
 
 begin
   TheStream:=TFileStream.Create(FileName,fmCreate);
-  SaveToStream(TheStream);
-  TheStream.Free;
+  try
+    SaveToStream(TheStream);
+  finally
+    TheStream.Free;
+  end;
 end;