This commit is contained in:
Ansgar Becker
2011-04-30 04:44:32 +00:00
parent b4a5a91572
commit 1e6c79372e
2 changed files with 5 additions and 2 deletions

View File

@@ -53,7 +53,7 @@ object frmExportGrid: TfrmExportGrid
Caption = 'Output format'
ItemIndex = 0
Items.Strings = (
'Excel TSV'
'Excel compatible'
'Delimited text'
'HTML table'
'XML'

View File

@@ -332,7 +332,10 @@ begin
efTSV, efCSV: begin
case ExportFormat of
efTSV: begin
Separator := #9;
if radioOutputCopyToClipboard.Checked then
Separator := #9
else
Separator := ',';
Encloser := '"';
Terminator := CRLF;
end;