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

fpspreadsheet: Fix incorrect detection of cell ranges in ods files.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4374 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-10-09 14:47:37 +00:00
parent 48c33e0c1c
commit b873069b54
1 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
components/fpspreadsheet/fpsexprparser.pas
View File

@ -700,6 +700,7 @@ type
procedure SetExpression(const AValue: String);
procedure SetLocalizedExpression(const AFormatSettings: TFormatSettings;
const AValue: String); virtual;
procedure CheckResultType(const Res: TsExpressionResult;
AType: TsResultType); inline;
function CurrentToken: String;
@ -1070,33 +1071,37 @@ end;
function TsExpressionScanner.DoSquareBracket: TsTokenType;
var
C: Char;
p: Integer;
r1,c1,r2,c2: Cardinal;
flags: TsRelFlags;
isRange: Boolean;
begin
isRange := false;
FToken := '';
C := NextPos;
while (C <> ']') do
begin
if C = cNull then
ScanError(SErrUnexpectedEndOfExpression);
FToken := FToken + C;
case C of
cNull: ScanError(SErrUnexpectedEndOfExpression);
'.' : ; // ignore
':' : begin isRange := true; FToken := FToken + C; end;
else FToken := FToken + C;
end;
C := NextPos;
end;
C := NextPos;
p := system.pos('.', FToken); // Delete up tp "." (--> to be considered later!)
if p <> 0 then Delete(FToken, 1, p);
if system.pos(':', FToken) > 0 then
if isRange then
begin
if ParseCellRangeString(FToken, r1, c1, r2, c2, flags) then
Result := ttCellRange
else
ScanError(Format(SErrInvalidCellRange, [FToken]));
end else
if ParseCellString(FToken, r1, c1, flags) then
Result := ttCell
else
ScanError(Format(SErrInvalidCell, [FToken]));
begin
if ParseCellString(FToken, r1, c1, flags) then
Result := ttCell
else
ScanError(Format(SErrInvalidCell, [FToken]));
end;
end;
function TsExpressionScanner.DoString: TsTokenType;