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

11
components/fpspreadsheet/examples/other/expression_parser/demo_expression_parser.lpi
View File

@@ -1,15 +1,16 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="demo_expression_parser"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
@@ -52,9 +53,9 @@
<Filename Value="demo_expression_parser"/>
</Target>
<SearchPaths>
<IncludeFiles Value="..\..\source;$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\source\common"/>
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
<IncludeFiles Value="..\..\..\source;$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\..\source\common"/>
<UnitOutputDirectory Value="..\..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>

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