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

fpspreadsheet: Clean up searching routines.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8080 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-08-26 13:19:10 +00:00
parent 9448894c7c
commit dba75889aa
3 changed files with 1 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/examples/other/searching/demo_search.lpi
View File

@ -35,15 +35,11 @@
<PackageName Value="laz_fpspreadsheet"/> <PackageName Value="laz_fpspreadsheet"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="1">
<Unit0> <Unit0>
<Filename Value="demo_search.pas"/> <Filename Value="demo_search.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit0> </Unit0>
<Unit1>
<Filename Value="..\..\source\common\fpsexprparser.pas"/>
<IsPartOfProject Value="True"/>
</Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

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

@ -12,7 +12,6 @@ uses
var var
workbook: TsWorkbook; workbook: TsWorkbook;
worksheet: TsWorksheet; worksheet: TsWorksheet;
s: String;
searchParams: TsSearchParams; searchParams: TsSearchParams;
rowFound, colFound: Cardinal; rowFound, colFound: Cardinal;
worksheetFound: TsWorksheet; worksheetFound: TsWorksheet;

3
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -751,7 +751,6 @@ type
FOnRemovingWorksheet: TsWorksheetEvent; FOnRemovingWorksheet: TsWorksheetEvent;
FOnSelectWorksheet: TsWorksheetEvent; FOnSelectWorksheet: TsWorksheetEvent;
FOnReadCellData: TsWorkbookReadCellDataEvent; FOnReadCellData: TsWorkbookReadCellDataEvent;
FSearchEngine: TObject;
FCryptoInfo: TsCryptoInfo; FCryptoInfo: TsCryptoInfo;
FMetaData: TsMetaData; FMetaData: TsMetaData;
{FrevisionsCrypto: TsCryptoInfo;} // Commented out because it needs revision handling {FrevisionsCrypto: TsCryptoInfo;} // Commented out because it needs revision handling
@ -6323,8 +6322,6 @@ begin
RemoveAllEmbeddedObj; RemoveAllEmbeddedObj;
FEmbeddedObjList.Free; FEmbeddedObjList.Free;
FreeAndNil(FSearchEngine);
inherited Destroy; inherited Destroy;
end; end;