paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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
Show Stats 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; LF = #10;
HTAB = #9; HTAB = #9;
SPACE = #32; SPACE = #32;
WhitespaceChars: TSysCharSet = [HTAB, SPACE]; WhitespaceChars = [HTAB, SPACE];
LineEndingChars: TSysCharSet = [CR, LF]; LineEndingChars = [CR, LF];
function ChangeLineEndings(const AString, ALineEnding: String): String; function ChangeLineEndings(const AString, ALineEnding: String): String;
var var
@ -420,15 +420,20 @@ end;
function TCSVBuilder.QuoteCSVString(const AValue: String): String; function TCSVBuilder.QuoteCSVString(const AValue: String): String;
var var
I: Integer; I: Integer;
ValueLen: Integer;
SpecialChars: TSysCharSet;
NeedQuotation: Boolean; NeedQuotation: Boolean;
begin begin
NeedQuotation := (AValue <> '') and FQuoteOuterWhitespace ValueLen := Length(AValue);
and ((AValue[1] in WhitespaceChars) or (AValue[Length(AValue)] in WhitespaceChars));
NeedQuotation := (AValue <> '') and FQuoteOuterWhitespace
and ((AValue[1] in WhitespaceChars) or (AValue[ValueLen] in WhitespaceChars));
SpecialChars := [CR, LF, FDelimiter, FQuoteChar];
if not NeedQuotation then if not NeedQuotation then
for I := 1 to Length(AValue) do for I := 1 to ValueLen do
begin begin
if AValue[I] in [CR, LF, FDelimiter, FQuoteChar] then if AValue[I] in SpecialChars then
begin begin
NeedQuotation := True; NeedQuotation := True;
Break; Break;