Changeset 43 for trunk/NewView/GlobalSearchForm.pas

Timestamp:

Jan 2, 2007, 8:29:54 PM (19 years ago)

Author:

RBRi

Message:

% use new debug unit

File:

• trunk/NewView/GlobalSearchForm.pas (modified) (9 diffs)

trunk/NewView/GlobalSearchForm.pas

@@ -142 +142 @@
 uses
   SysUtils,
+  DebugUnit,
   ACLFileUtility,
-  ACLProfile,
   ACLDialogs,
   ControlsUtility,
@@ -499 +499 @@
   MatchingTopics := TList.Create;
 
-  ProfileEvent( 'Getting files' );
+  LogEvent(LogParse, 'Getting files');
 
   // make sure we ignore duplicate files...
@@ -535 +535 @@
   end;
 
-  ProfileEvent( ' Searching ' + IntToStr( Files.Count ) + ' files' );
+  LogEvent(LogParse, ' Searching ' + IntToStr( Files.Count ) + ' files');
   for FileIndex := 0 to Files.Count - 1 do
   begin
@@ -541 +541 @@
       break;
     Filename := Files[ FileIndex ];
-    ProfileEvent( Filename );
+    LogEvent(LogParse, Filename);
     ThreadManager.UpdateProgress( 10 + FileIndex * 95 div Files.Count,
                                   100,
@@ -553 +553 @@
 
     try
-      ProfileEvent( ' Create THelpFile' );
+      LogEvent(LogParse, ' Create THelpFile');
       HelpFile := THelpFile.Create( FileName );
 
-      ProfileEvent( ' Helpfile created' );
+      LogEvent(LogParse, ' Helpfile created');
       MatchingTopics.Clear;
 
-      ProfileEvent( ' Search file' );
+      LogEvent(LogParse, ' Search file');
       SearchHelpFile( HelpFile,
                       Query,
@@ -568 +568 @@
       if MatchingTopics.Count > 0 then
       begin
-        ProfileEvent( '  Sort results' );
+        LogEvent(LogParse, '  Sort results');
         // Create a searchresult object to send back to main thread.
         SearchResult := TSearchResult.Create;
@@ -577 +577 @@
 
         SearchResult.MatchingTopics.Sort( TopicRelevanceCompare );
-        ProfileEvent( '  Display results' );
+        LogEvent(LogParse, '  Display results');
 
         ThreadManager.SendData( '', SearchResult );
       end;
 
-      ProfileEvent( 'Unload helpfile' );
+      LogEvent(LogParse, 'Unload helpfile');
       HelpFile.Destroy;
 
@@ -598 +598 @@
 
   end;
-  ProfileEvent( 'search completed' );
+  LogEvent(LogParse, 'search completed');
   ThreadManager.UpdateProgress( 100, 100, DoneMsg );
   Files.Destroy;
@@ -608 +608 @@
 
   Result := nil;
-  ProfileEvent( 'done' );
+  LogEvent(LogParse, 'done');
 End;