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

fpspreadsheet: In expression parser, use double quotes (instead of single quots) to identify strings (Excel/OO/LO standard)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3502 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-08-22 11:16:00 +00:00
parent 5257052685
commit 5e5eccef12
2 changed files with 8 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/examples/other/demo_expression_parser.pas
View File

@ -69,7 +69,7 @@ begin
case formula[i].ElementKind of
fekCell : Write(' / cell: ' +GetCellString(formula[i].Row, formula[i].Col, formula[i].RelFlags));
fekNum : Write(' / number value: ', FloatToStr(formula[i].DoubleValue));
fekString : Write(' / string value: ', formula[i].StringValue);
fekString : Write(' / string value: "', formula[i].StringValue, '"');
fekBool : Write(' / boolean value: ', BoolToStr(formula[i].DoubleValue <> 0));
end;
WriteLn;

18
components/fpspreadsheet/fpsexprparser.pas
View File

@ -26,6 +26,7 @@
- TsConcatExprNode and token "&" to handle string concatenation
- remove and modifiy built-in function such that the parser is compatible
with Excel syntax (and OpenOffice - which is the same).
- use double quotes for strings (instead of single quotes)
******************************************************************************}
{$mode objfpc}
@ -735,7 +736,6 @@ uses
const
cNull = #0;
cSingleQuote = '''';
cDoubleQuote = '"';
Digits = ['0'..'9', '.'];
@ -948,10 +948,8 @@ function TsExpressionScanner.DoString: TTokenType;
function TerminatingChar(C: Char): boolean;
begin
Result := (C = cNull)
or ((C = cSingleQuote) and
not ((FPos < LSource) and (FSource[FPos+1] = cSingleQuote)))
or ((C = cDoubleQuote) and
not ((FPos < LSource) and (FSource[FPos+1] = cDoubleQuote)));
or ((C = cDoubleQuote) and
not ((FPos < LSource) and (FSource[FPos+1] = cDoubleQuote)));
end;
var
@ -962,8 +960,6 @@ begin
while not TerminatingChar(C) do
begin
FToken := FToken+C;
if C = cSingleQuote then
NextPos;
if C = cDoubleQuote then
NextPos;
C := NextPos;
@ -1058,7 +1054,7 @@ begin
Result := ttEOF
else if IsDelim(C) then
Result := DoDelimiter
else if (C = cSingleQuote) or (C = cDoubleQuote) then
else if (C = cDoubleQuote) then
Result := DoString
else if IsDigit(C) then
Result := DoNumber
@ -2131,10 +2127,10 @@ end;
function TsConstExprNode.AsString: string;
begin
case NodeType of
rtString : Result := '''' + FValue.ResString + '''';
rtString : Result := cDoubleQuote + FValue.ResString + cDoubleQuote;
rtInteger : Result := IntToStr(FValue.ResInteger);
rtDateTime : Result := '''' + FormatDateTime('cccc', FValue.ResDateTime) + '''';
rtBoolean : if FValue.ResBoolean then Result := 'True' else Result := 'False';
rtDateTime : Result := '''' + FormatDateTime('cccc', FValue.ResDateTime) + ''''; // Probably wrong !!!
rtBoolean : if FValue.ResBoolean then Result := 'TRUE' else Result := 'FALSE';
rtFloat : Str(FValue.ResFloat, Result);
end;
end;