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

fpspreadsheet: Check (and fix) compilation of all demos. Reset debugger to "automatic".

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7991 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-14 23:33:18 +00:00
parent 93f080baa1
commit 501e848dcb
48 changed files with 259 additions and 257 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/examples/other/expression_parser/demo_expression_parser.pas
View File

@ -51,10 +51,10 @@ begin
parser := TsSpreadsheetParser.Create(worksheet);
try
try
parser.Expression := worksheet.ReadFormula(cell);
parser.Expression[fdExcelA1] := worksheet.ReadFormula(cell);
res := parser.Evaluate;
WriteLn('A2: ', parser.Expression);
WriteLn('A2: ', parser.Expression[fdExcelA1]);
Write('Result: ');
case res.ResultType of
rtEmpty : WriteLn('--- empty ---');
@ -66,8 +66,8 @@ begin
rtError : WriteLn(GetErrorValueStr(res.ResError));
end;
WriteLn('Reconstructed string formula: ', parser.Expression);
WriteLn('Reconstructed localized formula: ', parser.LocalizedExpression[DefaultFormatSettings]);
WriteLn('Reconstructed string formula: ', parser.Expression[fdExcelA1]);
WriteLn('Reconstructed localized formula: ', parser.Expression[fdLocalized]);
formula := parser.RPNFormula;
for i:=0 to Length(formula)-1 do begin
@ -97,7 +97,7 @@ begin
try
try
parser.RPNFormula := formula;
s := parser.Expression;
s := parser.Expression[fdExcelA1];
WriteLn('String formula, reconstructed from RPN formula: ', s);
except on E:Exception do
begin