From badefdd310e3c08322c01bfac30826b6901bbf37 Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 23 Apr 2009 12:23:09 +0000
Subject: [PATCH] Fixes memory leak when releasing cell's memory.

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

diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index c46d7d0c9..b1ffe73fa 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -217,6 +217,9 @@ end;
 }
 procedure TsWorksheet.RemoveCallback(data, arg: pointer);
 begin
+  { The UTF8STring must be manually reseted to nil content, because
+    FreeMem only frees the record mem, without checking its content }
+  PCell(data).UTF8StringValue:='';
   FreeMem(data);
 end;