【列表8.5】目錄格式（fromTOC.pas）。
unit frmTOC;

interface

uses
   SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs
   QStdCtrls,                                                             
   frmHelpTopic;
type
  TfrmshTOC = class(TForm)
     btnDisplay: TButton;
     btnCancel: TButton;
     lbTopics: TListBox;
     procedure btnDisplayClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
      FlstHelp: TStringList;
   end;
var
   frmshTOC: TfrmshTOC;
procedure ShowTOC (const sFilename: String; lstHelp: TStringList);
procedure ShutDown;
implementation
{SR *.xfm}
procedure ShowTOC (const sFilename: String; lstHelp: TStringList);
var
   i: Integer;
   lstLine: TStringList;
begin
   if not Assigned (frmshTOC) then
      frmshTOC := TfrmshTOC.Create (nil);
   frmshTOC.FlstHelp.Assign (lstHelp);
   frmshTOC.Caption := Format ('Table of Contents for %s', [sFileName]);
   frmshTOC.lbTopics.Clear;
   lstLine := TStringList. Create;
   try
      for i := 0 to lstHelp. Count-1 do
      begin
         lstLine.CommaText := lstHelp[i];
         if lstLine.Count >= 3 then
            frmshTOC.lbTopics. Items.Add (lstLine[1]);
      end;
      frmshTOC.lbTopics. ItemIndex :=0;
   finally
      lstLine. Free;
   end;
   frmshTOC.Show;
end;
procedure ShutDown;
begin
   if Assigned(frmshTOC) then
      FreeAndNil (frmshTOC);
end;
procedure TfrmshTOC.btnDisplayClick(Sender: TObject);
var
   lstLine: TStringList;
begin
   if lbTopics. ItemIndex <> -1 then
   begin
      lstLine := TStringList. Create;
      try
         lstLine. CommaText := FlstHelp[lbTopics. ItemIndex];
         frmHelpTopic. ShowTopic (lstLine[1], lstLine[2]);
          Hide;
       finally
          lstLine. Free;
       end;
    end;
 end;

 procedure TfrmshTOC.FormCreate(Sender: TObject)';
 begin
     FlstHelp := TStringList.Createl
  end;

  procedure TfrmshTOC.FormDestroy(Sender: TObject);
  begin
     FlstHelp. Free;
  end;

end.