Changeset 346

Timestamp:

Jun 2, 2009, 8:56:46 PM (16 years ago)

Author:

RBRi

Message:

fix stupid type cast error

File:

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

trunk/NewView/HelpFile.pas ¶

@@ -308 +308 @@
   FUNCTION TIndex.GetTopic(aPos: longint): TTopic;
   begin
-    result := TTopic(entries.Objects[aPos]);
+    result := TIndexEntry(entries.Objects[aPos]).getTopic;
   end;
 
@@ -387 +387 @@
     ReadHeader;
     ReadContents;
-    // ReadIndex;
     ReadDictionary;
     ReadFontTableData;
@@ -617 +616 @@
 begin
   if _Index = nil then
+  begin
     ReadIndex;
+  end;
   Result := _Index;
 end;