Add some explanatory comments to the code.

1 files changed, 2 insertions, 3 deletions

diff --git a/src/HelpFile.pas b/src/HelpFile.pas
index e91d6cb1..718577a3 100644
--- a/src/HelpFile.pas
+++ b/src/HelpFile.pas
@@ -999,10 +999,9 @@ begin
   for i := 0 to _pExtendedHeader^.Numdatabase - 1 do
   begin
     pLength := p; // length byte, including itself
-    SetString(DatabaseName, p+1, pLength^-1);
-//    GetMemString( p + 1, DatabaseName, ( pLength ^ ) - 1 );
+    SetString(DatabaseName, p+1, pLength^-1); // use length value minus the length byte to get the string length
     _ReferencedFiles.Add( DatabaseName );
-    inc( p, pLength^ ); // skip to next entry
+    inc( p, pLength^ ); // skip to next entry using full length (including length byte)
   end;
   FreeMem( pData );
 end;