Fixed memory leak in ReadOLEFile.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@946 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2009-09-01 23:04:57 +00:00
parent a9e4cc5457
commit 41aab444e0
1 changed files with 2 additions and 1 deletions
--- a/components/fpspreadsheet/fpolestorage.pas
+++ b/components/fpspreadsheet/fpolestorage.pas
@ -770,7 +770,8 @@ var
  CurrentSectorPos: Int64;
 begin
  FOLEDocument := AOLEDocument;
-  AOLEDocument.Stream := TMemoryStream.Create;
+  if not Assigned(AOLEDocument.Stream) then
+    AOLEDocument.Stream := TMemoryStream.Create;
  AFileStream := TFileStream.Create(AFileName, fmOpenRead);
  try
    // Header