From 8f6b064c8aaf44b6251a208beaabeec4054e6dff Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 3 Mar 2012 21:27:18 +0000
Subject: [PATCH] Do not export column names as array keys if "Column headers"
 is unchecked

---
 source/exportgrid.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/source/exportgrid.pas b/source/exportgrid.pas
index 332a668b..2f0a5938 100644
--- a/source/exportgrid.pas
+++ b/source/exportgrid.pas
@@ -625,7 +625,10 @@ begin
             Data := 'NULL'
           else if not (GridData.DataType(Col).Category in [dtcInteger, dtcReal]) then
             Data := esc(Data);
-          tmp := tmp + #9#9 + '''' + Grid.Header.Columns[Col].Text + ''' => ' + Data + ','+CRLF;
+          if chkColumnHeader.Checked then
+            tmp := tmp + #9#9 + '''' + Grid.Header.Columns[Col].Text + ''' => ' + Data + ','+CRLF
+          else
+            tmp := tmp + #9#9 + Data + ','+CRLF;
         end;
 
       end;