docview: implemented TBookmark.Save method.

1 files changed, 9 insertions, 1 deletions

diff --git a/docview/src/HelpBookmark.pas b/docview/src/HelpBookmark.pas
index 1a49cd75..8420322f 100644
--- a/docview/src/HelpBookmark.pas
+++ b/docview/src/HelpBookmark.pas
@@ -16,6 +16,7 @@ type
     FContentsTopic: TTopic;
     FName: string;
   public
+    constructor Create;
     constructor Load(var F: TextFile; HelpFile: THelpFile);
     procedure   Save(var F: TextFile);
     property    Name: string read FName write FName;
@@ -27,6 +28,12 @@ implementation
 
 { TBookmark }
 
+constructor TBookmark.Create;
+begin
+  inherited Create;
+  ContentsTopic:= nil;
+end;
+
 constructor TBookmark.Load(var F: TextFile; HelpFile: THelpFile);
 var
   s: string;
@@ -41,7 +48,8 @@ end;
 
 procedure TBookmark.Save(var F: TextFile);
 begin
-
+  writeLn( F, Name );
+  writeLn( F, IntToStr( ContentsTopic.Index ) );
 end;