TChmFileList

type TChmFileList = class(TStringList)

protected

  fLastChm: TChmReader;

  fUnNotifiedFiles: TList;

  fOnOpenNewFile: TChmFileOpenEvent;

  procedure Delete(); override;

  function GetChm();

  function GetFileName();

  procedure OpenNewFile();

  function CheckOpenFile();

  function MetaObjectExists();

  function MetaGetObject();

  procedure SetOnOpenNewFile();

public

  constructor Create();

  destructor Destroy; override;

  function GetObject();

  function IsAnOpenFile();

  function ObjectExists();

  property Chm []: TChmReader; [r]

  property FileName []: string; [r]

  property OnOpenNewFile: TChmFileOpenEvent; [rw]

end;

TChmFileList

TObject