Do not export column names as array keys if "Column headers" is unchecked

This commit is contained in:
Ansgar Becker
2012-03-03 21:27:18 +00:00
parent 347f1ee986
commit 8f6b064c8a

View File

@@ -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;