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

fpspreadsheet: Add batch scripts to run all console demos automatically.

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

9
components/fpspreadsheet/examples/other/cell_formats/demo_write_formatting.lpi
View File

@ -25,9 +25,16 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<CommandLineParams Value="-quit"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
<Mode0 Name="default">
<local>
<CommandLineParams Value="-quit"/>
</local>
</Mode0>
</Modes>
</RunParams>
<RequiredPackages Count="1">

7
components/fpspreadsheet/examples/other/cell_formats/demo_write_formatting.pas
View File

@ -159,6 +159,13 @@ begin
MyWorkbook.Free;
WriteLn('Finished. Please open "'+TestFileXLS+'" and "' + TestFileODS + '" in your spreadsheet program.');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

7
components/fpspreadsheet/examples/other/colors/demo_write_colors.lpr
View File

@ -60,6 +60,13 @@ begin
writeln('Finished.');
WriteLn('Please open "'+Testfile+'" in your spreadsheet program.');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

15
components/fpspreadsheet/examples/other/conditional_formatting/demo_conditional_formatting.pas
View File

@ -401,14 +401,19 @@ begin
wb.WriteToFile('test.ods', true);
wb.WriteToFile('test.xml', true);
if wb.ErrorMsg <> '' then begin
if wb.ErrorMsg <> '' then
WriteLn(wb.ErrorMsg);
WriteLn;
WriteLn('Press ENTER to close.');
ReadLn;
end;
finally
wb.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

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

@ -113,8 +113,13 @@ begin
workbook.Free;
end;
WriteLn('Press ENTER to quit...');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

16
components/fpspreadsheet/examples/other/header_footer_images/demo_write_headerfooter_images.lpr
View File

@ -14,9 +14,9 @@ var
i, r, c: Integer;
const
image1 = '../../images/components/TSWORKBOOKSOURCE.png';
image2 = '../../images/components/TSWORKSHEETGRID.png';
image3 = '../../images/components/TSCELLEDIT.png';
image1 = '../../../images/components/TSWORKBOOKSOURCE.png';
image2 = '../../../images/components/TSWORKSHEETGRID.png';
image3 = '../../../images/components/TSCELLEDIT.png';
begin
Writeln('Starting program "demo_write_headerfooter_images"...');
@ -49,10 +49,14 @@ begin
WriteLn('Finished.');
WriteLn('Please open the files "hfimg.*" in your spreadsheet program.');
{$ifdef WINDOWS}
WriteLn('Press ENTER to close this program...');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to close this program...');
ReadLn;
{$endif}
{$ENDIF}
end;
finally
MyWorkbook.Free;

12
components/fpspreadsheet/examples/other/images/demo_write_images.lpr
View File

@ -51,13 +51,17 @@ begin
WriteLn('Finished.');
WriteLn('Please open the files "img.*" in your spreadsheet program.');
{$ifdef WINDOWS}
WriteLn('Press ENTER to close this program...');
ReadLn;
{$ENDIF}
finally
MyWorkbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

6
components/fpspreadsheet/examples/other/metadata/demo_metadata.lpr
View File

@ -109,6 +109,12 @@ begin
book.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

6
components/fpspreadsheet/examples/other/protection/demo_protection.pas
View File

@ -46,8 +46,14 @@ begin
WriteLn('Open the files "protected.*" in your spreadsheet application.');
WriteLn('Only cell A1 can be modifed.');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

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

@ -45,9 +45,16 @@ begin
writeln('Please open "'+OutputFile+'" in "fpsgrid".');
writeLn('It must show correct calculation results in cells B1 and B2.');
ReadLn;
finally
workbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

8
components/fpspreadsheet/examples/other/rpn_formulas/demo_write_formula.pas
View File

@ -101,10 +101,14 @@ begin
MyWorkbook.Free;
end;
writeln('Finished. Please open "'+Testfile+'" in your spreadsheet program.');
WriteLn('Finished. Please open "'+Testfile+'" in your spreadsheet program.');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit.');
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

16
components/fpspreadsheet/examples/other/run_all_demos.bat Normal file
View File

@ -0,0 +1,16 @@
cell_formats\demo_write_formatting -quit
colors\demo_write_colors -quit
conditional_formatting\demo_conditional_formatting -quit
expression_parser\demo_expression_parser -quit
header_footer_images\demo_write_headerfooter_images -quit
ignore_formulas\demo_ignore_formula -quit
images\demo_write_images -quit
metadata\demo_metadata -quit
protection\demo_protection -quit
recursive_calculation\demo_recursive_calc -quit
rpn_formulas\demo_write_formula -quit
searching\demo_search -quit
sorting\demo_sorting -quit
user_defined_formulas\demo_formula_func -quit
virtual_mode\demo_virtualmode_write -quit
virtual_mode\demo_virtualmode_read -quit

5
components/fpspreadsheet/examples/other/searching/demo_search.pas
View File

@ -64,10 +64,13 @@ begin
workbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

7
components/fpspreadsheet/examples/other/sorting/demo_sorting.pas
View File

@ -412,7 +412,12 @@ begin
SortTwoColumns_TwoKeys_1;
SortTwoRows_TwoKeys_1;
WriteLn('Press ENTER to quit...');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

8
components/fpspreadsheet/examples/other/user_defined_formulas/demo_formula_func.pas
View File

@ -305,8 +305,14 @@ begin
WriteLn;
WriteLn('Open the file in Excel or OpenOffice/LibreOffice.');
WriteLn('Press [ENTER] to close...');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

5
components/fpspreadsheet/examples/other/virtual_mode/demo_virtualmode_read.lpr
View File

@ -86,7 +86,12 @@ begin
dataAnalyzer.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

6
components/fpspreadsheet/examples/other/virtual_mode/demo_virtualmode_write.lpr
View File

@ -114,7 +114,13 @@ begin
end;
WriteLn(Format('Execution time: %.3f sec', [t*24*60*60]));
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press [ENTER] to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/csvdemo/csvread.lpr
View File

@ -64,9 +64,12 @@ begin
end;
{$ifdef WINDOWS}
if ParamCount = 0 then
begin
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
end;
{$ENDIF}
end.

3
components/fpspreadsheet/examples/read_write/excel2demo/excel2read.lpr
View File

@ -59,10 +59,13 @@ begin
MyWorkbook.Free;
end;
if ParamCount = 0 then
begin
{$ifdef Windows}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$endif}
end;
end.

3
components/fpspreadsheet/examples/read_write/excel5demo/excel5read.lpr
View File

@ -57,10 +57,13 @@ begin
MyWorkbook.Free;
end;
if ParamCount = 0 then
begin
{$ifdef Windows}
WriteLn;
WriteLn('Press ENTER to quit...');
Readln;
{$endif}
end;
end.

3
components/fpspreadsheet/examples/read_write/excel8demo/excel8read.lpr
View File

@ -64,10 +64,13 @@ begin
MyWorkbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/excelxmldemo/excelxmlread.lpr
View File

@ -97,10 +97,13 @@ begin
workbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

4
components/fpspreadsheet/examples/read_write/excelxmldemo/excelxmlwrite.lpr
View File

@ -398,10 +398,14 @@ begin
WriteLn('Done.');
WriteLn('File saved as "' + MyDir + 'text.xml"');
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit.');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/htmldemo/htmlread.lpr
View File

@ -61,10 +61,13 @@ begin
MyWorkbook.Free;
end;
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlread.lpr
View File

@ -55,10 +55,13 @@ begin
// Finalization
MyWorkbook.Free;
if ParamCount = 0 then
begin
{$ifdef WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/ooxmldemo/ooxmlwrite.lpr
View File

@ -37,9 +37,12 @@ begin
WriteLn('Workbook written to "' + Mydir + 'test.xlsx' + '".');
if ParamCount = 0 then
begin
{$IFDEF MSWINDOWS}
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/ooxmldemo_crypto/ooxml_decrypt_and_read.pas
View File

@ -73,10 +73,13 @@ begin
// Finalization
MyWorkbook.Free;
if ParamCount = 0 then
begin
{$ifdef WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

3
components/fpspreadsheet/examples/read_write/opendocdemo/opendocread.lpr
View File

@ -55,10 +55,13 @@ begin
// Finalization
MyWorkbook.Free;
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
Writeln('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.

25
components/fpspreadsheet/examples/read_write/run_all_demos.bat Normal file
View File

@ -0,0 +1,25 @@
csvdemo\csvwrite -quit
csvdemo\csvread -quit
excel2demo\excel2write -quit
excel2demo\excel2read -quit
excel5demo\excel5write -quit
excel5demo\excel5read -quit
excel8demo\excel8write -quit
excel8demo\excel8read -quit
excelxmldemo\excelxmlwrite -quit
excelxmldemo\excelxmlread -quit
htmldemo\htmlwrite -quit
htmldemo\htmlread -quit
ooxmldemo\ooxmlwrite -quit
ooxmldemo\ooxmlread -quit
opendocdemo\opendocwrite -quit
opendocdemo\opendocread -quit
wikitabledemo\wikitablewrite -quit

3
components/fpspreadsheet/examples/read_write/wikitabledemo/wikitableread.lpr
View File

@ -61,10 +61,13 @@ begin
// Finalization
MyWorkbook.Free;
if ParamCount = 0 then
begin
{$IFDEF WINDOWS}
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;
{$ENDIF}
end;
end.