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

csvdocument: small optimization based on short-circuit evaluation

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2520 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vvzh
2012-09-18 21:57:18 +00:00
parent b06f7759b9
commit 271226ddfb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/csvdocument/csvdocument.pas
View File

@ -411,7 +411,7 @@ end;
procedure TCSVParser.ParseValue; procedure TCSVParser.ParseValue;
begin begin
while not ((FCurrentChar = FDelimiter) or EndOfFile or EndOfLine) do while not ((FCurrentChar = FDelimiter) or EndOfLine or EndOfFile) do
begin begin
AppendStr(FWhitespaceBuffer, FCurrentChar); AppendStr(FWhitespaceBuffer, FCurrentChar);
NextChar; NextChar;