From 75dd051f3948e3a928474a3111e4f7e310542aec Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 3 Sep 2009 12:04:04 +0000
Subject: [PATCH] Fixed memory leak in WriteWorksheet.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@953 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpsopendocument.pas | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas
index 244f1c05d..6b0dd688f 100755
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@@ -404,7 +404,7 @@ var
   CurCell: PCell;
   CurRow: array of PCell;
   LastColNum: Cardinal;
-  ACell: PCell;
+  LCell: TCell;
   AVLNode: TAVLTreeNode;
 begin
   LastColNum := CurSheet.GetLastColNumber;
@@ -415,8 +415,6 @@ begin
   '      <table:table-column table:style-name="co1" table:number-columns-repeated="' +
   IntToStr(LastColNum + 1) + '" table:default-cell-style-name="Default"/>' + LineEnding;
 
-  ACell := GetMem(SizeOf(TCell));
-
   // The cells need to be written in order, row by row, cell by cell
   for j := 0 to CurSheet.GetLastRowNumber do
   begin
@@ -426,9 +424,9 @@ begin
     // Write cells from this row.
     for k := 0 to LastColNum do
     begin
-      ACell^.Row := j;
-      ACell^.Col := k;
-      AVLNode := CurSheet.Cells.Find(ACell);
+      LCell.Row := j;
+      LCell.Col := k;
+      AVLNode := CurSheet.Cells.Find(@LCell);
       if Assigned(AVLNode) then
         WriteCellCallback(PCell(AVLNode.Data), nil)
       else