From e6fd1abf98c3457a8ea18da9155e002aae6bb514 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 3 Aug 2020 08:40:01 +0000
Subject: [PATCH] fpspreadsheet: Use a local variable for found worksheet in
 search_demo
 (https://forum.lazarus.freepascal.org/index.php/topic,50851.msg372259).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7595 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../examples/other/searching/demo_search.lpi  |  6 ++--
 .../examples/other/searching/demo_search.pas  | 31 ++++++++++++-------
 2 files changed, 23 insertions(+), 14 deletions(-)

diff --git a/components/fpspreadsheet/examples/other/searching/demo_search.lpi b/components/fpspreadsheet/examples/other/searching/demo_search.lpi
index 6bcfaf077..e664260d2 100644
--- a/components/fpspreadsheet/examples/other/searching/demo_search.lpi
+++ b/components/fpspreadsheet/examples/other/searching/demo_search.lpi
@@ -1,15 +1,15 @@
 <?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"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="demo_search"/>
       <UseAppBundle Value="False"/>
       <ResourceType Value="res"/>
@@ -57,7 +57,7 @@
     </SearchPaths>
     <Linking>
       <Debugging>
-        <UseExternalDbgSyms Value="True"/>
+        <DebugInfoType Value="dsDwarf2Set"/>
       </Debugging>
     </Linking>
   </CompilerOptions>
diff --git a/components/fpspreadsheet/examples/other/searching/demo_search.pas b/components/fpspreadsheet/examples/other/searching/demo_search.pas
index b27133631..030fcc357 100644
--- a/components/fpspreadsheet/examples/other/searching/demo_search.pas
+++ b/components/fpspreadsheet/examples/other/searching/demo_search.pas
@@ -14,7 +14,8 @@ var
   worksheet: TsWorksheet;
   s: String;
   searchParams: TsSearchParams;
-  RowFound, ColFound: Cardinal;
+  rowFound, colFound: Cardinal;
+  worksheetFound: TsWorksheet;
 
 begin
   workbook := TsWorkbook.Create;
@@ -36,10 +37,12 @@ begin
 
     // Create search engine and execute search
     with TsSearchEngine.Create(workbook) do begin
-      if FindFirst(searchParams, worksheet, RowFound, ColFound) then begin
-        WriteLn('First "', searchparams.SearchText, '" found in cell ', GetCellString(RowFound, ColFound));
-        while FindNext(searchParams, worksheet, RowFound, ColFound) do
-          WriteLn('Next "', searchParams.SearchText, '" found in cell ', GetCellString(RowFound, ColFound));
+      if FindFirst(searchParams, worksheetFound, rowFound, colFound) then begin
+        WriteLn('First "', searchparams.SearchText, '" found in cell ',
+          GetCellString(rowFound, colFound), ' of worksheet ', worksheetFound.Name);
+        while FindNext(searchParams, worksheetFound, rowFound, colFound) do
+          WriteLn('Next "', searchParams.SearchText, '" found in cell ',
+            GetCellString(rowFound, colFound), ' of worksheet ', worksheetFound.Name);
       end;
       Free;
     end;
@@ -47,18 +50,24 @@ begin
     // Now search in comments
     Include(searchparams.Options, soSearchInComment);
     with TsSearchEngine.Create(workbook) do begin
-      if FindFirst(searchParams, worksheet, RowFound, ColFound) then begin
-        WriteLn('First "', searchparams.SearchText, '" found in comment of cell ', GetCellString(RowFound, ColFound));
-        while FindNext(searchParams, worksheet, RowFound, ColFound) do
-          WriteLn('Next "', searchParams.SearchText, '" found in comment of cell ', GetCellString(RowFound, ColFound));
+      if FindFirst(searchParams, worksheetFound, rowFound, colFound) then begin
+        WriteLn('First "', searchparams.SearchText, '" found in comment of cell ',
+          GetCellString(rowFound, colFound), ' of worksheet ', worksheetFound.Name);
+        while FindNext(searchParams, worksheetFound, rowFound, colFound) do
+          WriteLn('Next "', searchParams.SearchText, '" found in comment of cell ',
+            GetCellString(rowFound, colFound), ' of worksheet ', worksheetFound.Name);
       end;
       Free;
     end;
 
-    ReadLn;
-
   finally
     workbook.Free;
   end;
+
+  {$IFDEF MSWINDOWS}
+  WriteLn;
+  WriteLn('Press ENTER to quit...');
+  ReadLn;
+  {$ENDIF}
 end.