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

fpspreadsheet: Move hyperlinkdemo to "others" folder. Make sure that "other" demos write their output in the project directory.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7995 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-04-15 12:58:58 +00:00
parent 78348da3ef
commit 1cc0c3b66c
14 changed files with 81 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpspreadsheet/examples/other/recursive_calculation/demo_recursive_calc.pas
View File

@@ -14,17 +14,21 @@ uses
cthreads,
{$ENDIF}
{$ENDIF}
Classes, Math,
SysUtils, Classes, Math,
fpstypes, fpspreadsheet, fpsfunc, xlsbiff8;
var
workbook: TsWorkbook;
worksheet: TsWorksheet;
dir: String;
const
OutputFile='test_recursive.xls';
OutputFile = 'test_recursive.xls';
begin
writeln('Starting program.');
dir := ExtractFilePath(ParamStr(0));
workbook := TsWorkbook.Create;
try
workbook.Options := workbook.Options + [boCalcBeforeSaving];
@@ -39,10 +43,10 @@ begin
worksheet.WriteUTF8Text(2, 0, '(not dependent)'); // A3
worksheet.WriteNumber(2, 1, 1); // B3
workbook.WriteToFile(OutputFile, sfExcel8, true);
workbook.WriteToFile(dir + OutputFile, sfExcel8, true);
writeln('Finished.');
writeln;
writeln('Please open "'+OutputFile+'" in "fpsgrid".');
writeln('Please open "'+dir+OutputFile+'" in "fpsgrid".');
writeLn('It must show correct calculation results in cells B1 and B2.');
finally