* Fix compilation for new UTF8 handling

git-svn-id: trunk@39382 -

packages/fpindexer/examples/TestIndexer.lpi

@@ -1,7 +1,7 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="9"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
@@ -18,9 +18,6 @@
     <i18n>
       <EnableI18N LFM="False"/>
     </i18n>
-    <VersionInfo>
-      <StringTable ProductVersion=""/>
-    </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
     </BuildModes>
@@ -30,16 +27,15 @@
       <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <Units Count="5">
       <Unit0>
         <Filename Value="TestIndexer.pp"/>
         <IsPartOfProject Value="True"/>
-        <UnitName Value="TestIndexer"/>
       </Unit0>
       <Unit1>
         <Filename Value="fpindexer.pp"/>
@@ -84,12 +80,6 @@
         <UseHeaptrc Value="True"/>
       </Debugging>
     </Linking>
-    <Other>
-      <CompilerMessages>
-        <UseMsgFile Value="True"/>
-      </CompilerMessages>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">

packages/fpindexer/examples/TestIndexer.pp

@@ -23,14 +23,14 @@ uses
   {$endif}
    fpIndexer,
   //indexer readers
-  IReaderTXT, IReaderPAS, IReaderHTML, fpTextCat;
+  IReaderTXT, IReaderPAS, IReaderHTML;
 
 Type
 
   { TProgressLog }
 
   TProgressLog = Class(TObject)
-    procedure DoLog(Sender : TObject; Const ACurrent,ACount : Integer; Const AURL : String);
+    procedure DoLog(Sender : TObject; Const ACurrent,ACount : Integer; Const AURL : UTF8String);
   end;
 
 {$ifdef usefirebird}
@@ -139,7 +139,7 @@ end;
 { TProgressLog }
 
 procedure TProgressLog.DoLog(Sender: TObject; const ACurrent, ACount: Integer;
-  const AURL: String);
+  const AURL: UTF8String);
 begin
   Writeln((ACurrent/ACount*100):5:2,'% : ',ACurrent,'/',ACount,' : ',AURL);
 end;