Changeset 43 for trunk/NewView/HelpFile.pas

Timestamp:

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

Author:

RBRi

Message:

% use new debug unit

File:

• trunk/NewView/HelpFile.pas (modified) (7 diffs)

trunk/NewView/HelpFile.pas

@@ -156 +156 @@
 uses
   BseErr,
+  DebugUnit,
   ACLStringUtility,
   ACLFileIOUtility,
-  ACLProfile,
   ACLLanguageUnit;
 
@@ -220 +220 @@
 constructor THelpFile.Create( const FileName: string );
 begin
-  ProfileEvent( 'Helpfile Load: ' + FileName );
+  LogEvent(LogParse, 'Helpfile Load: ' + FileName);
 
   _FileName := FileName;
@@ -338 +338 @@
 procedure THelpFile.ReadHeader;
 begin
-  ProfileEvent( 'Read header' );
+  LogEvent(LogParse, 'Read header');
 
   ReadFileBlock( _pHeader,
@@ -371 +371 @@
   pEnd: pTTOCEntryStart;
 begin
-  ProfileEvent( 'Read contents' );
+  LogEvent(LogParse, 'Read contents');
 
   if _pHeader^.ntoc = 0 then
@@ -420 +420 @@
   pEnd: pbyte;
 begin
-  ProfileEvent( 'Read dictionary' );
+  LogEvent(LogParse, 'Read dictionary');
 
   if _pHeader^.ndict = 0 then
@@ -475 +475 @@
   pIndexData: pointer;
 begin
-  ProfileEvent( 'Read index' );
+  LogEvent(LogParse, 'Read index');
 
   _Index := TStringList.Create;
@@ -529 +529 @@
   SearchTableRecordLengthIs16Bit: boolean;
 begin
-  ProfileEvent( 'Read search table' );
+  LogEvent(LogParse, 'Read search table');
 
   if _pHeader^.SearchLen = 0 then
   begin
-    ProfileEvent( 'Read search table' );
+    LogEvent(LogParse, 'Read search table (len = 0');
     exit;
   end;