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

csvdocument: some more optimizations

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1478 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vvzh
2011-01-31 22:40:44 +00:00
parent d4da5d7108
commit 32aa697b43
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
components/csvdocument/csvdocument.pas
View File

@ -188,8 +188,8 @@ const
LF = #10;
HTAB = #9;
SPACE = #32;
WhitespaceChars: TSysCharSet = [HTAB, SPACE];
LineEndingChars: TSysCharSet = [CR, LF];
WhitespaceChars = [HTAB, SPACE];
LineEndingChars = [CR, LF];
function ChangeLineEndings(const AString, ALineEnding: String): String;
var
@ -420,15 +420,20 @@ end;
function TCSVBuilder.QuoteCSVString(const AValue: String): String;
var
I: Integer;
ValueLen: Integer;
SpecialChars: TSysCharSet;
NeedQuotation: Boolean;
begin
NeedQuotation := (AValue <> '') and FQuoteOuterWhitespace
and ((AValue[1] in WhitespaceChars) or (AValue[Length(AValue)] in WhitespaceChars));
ValueLen := Length(AValue);
NeedQuotation := (AValue <> '') and FQuoteOuterWhitespace
and ((AValue[1] in WhitespaceChars) or (AValue[ValueLen] in WhitespaceChars));
SpecialChars := [CR, LF, FDelimiter, FQuoteChar];
if not NeedQuotation then
for I := 1 to Length(AValue) do
for I := 1 to ValueLen do
begin
if AValue[I] in [CR, LF, FDelimiter, FQuoteChar] then
if AValue[I] in SpecialChars then
begin
NeedQuotation := True;
Break;