paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Move code for calculation of standard built-in formulas from fpsexprparser to separate unit (fpsfunc)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3507 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2014-08-31 16:02:50 +00:00
parent c87afdcdec
commit e387d98b6d
3 changed files with 1418 additions and 3771 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1570
components/fpspreadsheet/fpsexprparser.pas
View File

File diff suppressed because it is too large Load Diff

3549
components/fpspreadsheet/fpsfunc.pas
View File

File diff suppressed because it is too large Load Diff

70
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -1229,6 +1229,7 @@ resourcestring
lpNoValidNumberFormatString = 'No valid number format string.'; lpNoValidNumberFormatString = 'No valid number format string.';
lpNoValidCellAddress = '"%s" is not a valid cell address.'; lpNoValidCellAddress = '"%s" is not a valid cell address.';
lpNoValidCellRangeAddress = '"%s" is not a valid cell range address.'; lpNoValidCellRangeAddress = '"%s" is not a valid cell range address.';
lpNoValidCellRangeOrCellAddress = '"%s" is not a valid cell or cell range address.';
lpSpecifyNumberOfParams = 'Specify number of parameters for function %s'; lpSpecifyNumberOfParams = 'Specify number of parameters for function %s';
lpIncorrectParamCount = 'Funtion %s requires at least %d and at most %d parameters.'; lpIncorrectParamCount = 'Funtion %s requires at least %d and at most %d parameters.';
lpCircularReference = 'Circular reference found when calculating worksheet formulas'; lpCircularReference = 'Circular reference found when calculating worksheet formulas';
@ -1794,72 +1795,17 @@ procedure TsWorksheet.CalcFormula(ACell: PCell);
var var
parser: TsSpreadsheetParser; parser: TsSpreadsheetParser;
res: TsExpressionResult; res: TsExpressionResult;
rpnFormula: TsRPNFormula; formula: String;
cell: PCell;
i: Integer;
r, c: Cardinal;
fe: TsFormulaElement;
begin begin
ACell^.CalcState := csCalculating; ACell^.CalcState := csCalculating;
parser := TsSpreadsheetParser.Create(self); parser := TsSpreadsheetParser.Create(self);
try try
parser.Expression := ACell^.FormulaValue; if ACell^.SharedFormulaBase = nil then
(* formula := ACell^.FormulaValue
// Check whether all used cells are already calculated. else
rpnFormula := parser.RPNFormula; formula := ACell^.SharedFormulaBase^.FormulaValue;
for i:=0 to High(rpnFormula) do begin parser.Expression := formula;
fe := rpnFormula[i];
case fe.ElementKind of
fekCell, fekCellRef:
begin
cell := FindCell(fe.Row, fe.Col);
if cell <> nil then
case cell^.CalcState of
csNotCalculated: CalcFormula(cell);
csCalculating : raise Exception.Create(lpCircularReference);
end;
end;
fekCellRange:
begin
for r := fe.Row to fe.Row2 do
for c := fe.Col to fe.Col2 do begin
cell := FindCell(r, c);
if cell <> nil then
case cell^.CalcState of
csNotCalculated: CalcFormula(cell);
csCalculating : raise Exception.Create(lpCircularReference);
end;
end;
end;
{
fekCellOffset:
begin
if ACell^.SharedFormulaBase = nil then begin
ACell^.WriteErrorValue(ACell, errIllegalRef);
exit;
end;
if (rfRelRow in fe.RelFlags)
then r := ACell^.Row + SmallInt(fe.Row)
else r := ACell^.SharedFormulaBase^.Row;
if (rfRelCol in fe.RelFlags)
then c := ACell^.Col + SmallInt(fe.Col)
else c := ACell^.SharedFormulaBase^.Col;
cell := FindCell(r, c);
if cell <> nil then begin
case cell^.CalcState of
csNotCalculated: CalcFormula(cell);
csCalculating : raise Exception.Create(lpCircularReference);
end;
end else begin
WriteErrorValue(ACell, errIllegalRef);
exit;
end;
end;
}
end;
end;
*)
parser.EvaluateExpression(res); parser.EvaluateExpression(res);
case res.ResultType of case res.ResultType of
rtEmpty : WriteBlank(ACell); rtEmpty : WriteBlank(ACell);
@ -2839,7 +2785,7 @@ begin
Result := GetCell(ARow, ACol); Result := GetCell(ARow, ACol);
Result.SharedFormulaBase := ASharedFormulaBase; Result.SharedFormulaBase := ASharedFormulaBase;
if HasFormula(Result) and if HasFormula(Result) and
((ASharedFormulaBase.Row <> ARow) or (ASharedFormulaBase.Col <> ACol)) ((ASharedFormulaBase.Row <> ARow) and (ASharedFormulaBase.Col <> ACol))
then then
raise Exception.CreateFmt('Cell %s uses a shared formula, but contains an own formula.', raise Exception.CreateFmt('Cell %s uses a shared formula, but contains an own formula.',
[GetCellString(ARow, ACol)]); [GetCellString(ARow, ACol)]);