pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* fpspreadsheet: csv writer: get rid of multiple quoting (let csvdocument handle quoting)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3686 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-10-24 13:21:34 +00:00
parent c1102886cc
commit 391cd0a647
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/fpscsv.pas
View File

@ -312,7 +312,7 @@ begin
ACurrencySymbol := ''; ACurrencySymbol := '';
end; end;
{ Checks if text is quoted; strips starting and ending quotes } { Checks if text is quoted; strips any starting and ending quotes }
function TsCSVReader.IsQuotedText(var AText: String): Boolean; function TsCSVReader.IsQuotedText(var AText: String): Boolean;
begin begin
if (Length(AText) > 1) and (CSVParams.QuoteChar <> #0) and if (Length(AText) > 1) and (CSVParams.QuoteChar <> #0) and
@ -579,8 +579,7 @@ begin
if ACell = nil then if ACell = nil then
exit; exit;
s := ACell^.UTF8StringValue; s := ACell^.UTF8StringValue;
if CSVParams.QuoteChar <> #0 then // No need to quote; csvdocument will do that for us...
s := CSVParams.QuoteChar + s + CSVParams.QuoteChar;
FCSVBuilder.AppendCell(s); FCSVBuilder.AppendCell(s);
// AppendToStream(AStream, s); // AppendToStream(AStream, s);
end; end;