From b765956574521bc735e73568c2ade233138cd9c7 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 29 Jan 2015 11:18:49 +0000
Subject: [PATCH] fpspreadsheet: Fix comments in TCell declaration

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

diff --git a/components/fpspreadsheet/fpspreadsheet.pas b/components/fpspreadsheet/fpspreadsheet.pas
index 2849b3398..61bbfbc2c 100755
--- a/components/fpspreadsheet/fpspreadsheet.pas
+++ b/components/fpspreadsheet/fpspreadsheet.pas
@@ -50,16 +50,6 @@ type
     Worksheet: TsWorksheet;
     Col: Cardinal; // zero-based
     Row: Cardinal; // zero-based
-    (*
-    ContentType: TCellContentType;
-    { Possible values for the cells }
-    FormulaValue: string;
-    NumberValue: double;
-    UTF8StringValue: ansistring;
-    DateTimeValue: TDateTime;
-    BoolValue: Boolean;
-    ErrorValue: TsErrorValue;
-    *)
     { Index of format record }
     FormatIndex: Integer;
     { Status flags }
@@ -72,9 +62,9 @@ type
     FormulaValue: String;
     case ContentType: TCellContentType of  // must be at the end of the declaration
       cctEmpty      : ();      // has no data at all
-      cctFormula    : ();      // UTF8StringValue is outside the variant record
+      cctFormula    : ();      // FormulaValue is outside the variant record
       cctNumber     : (Numbervalue: Double);
-      cctUTF8String : ();      // FormulaValue is outside the variant record
+      cctUTF8String : ();      // UTF8StringValue is outside the variant record
       cctDateTime   : (DateTimevalue: TDateTime);
       cctBool       : (BoolValue: boolean);
       cctError      : (ErrorValue: TsErrorValue);