diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-04-06 17:04:26 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-04-06 17:04:26 +0200 |
commit | 588d101a110ff6804a3b7e23b46c27a7baf3934f (patch) | |
tree | a823240922e6f6ed98f0dd64169888e380364625 /docview | |
parent | c53b2523fdc09cc74c90a7ead1922d65bf864a1b (diff) | |
download | fpGUI-588d101a110ff6804a3b7e23b46c27a7baf3934f.tar.xz |
Cleanup of the unit and code comments.
Diffstat (limited to 'docview')
-rw-r--r-- | docview/src/SearchTable.pas | 34 |
1 files changed, 24 insertions, 10 deletions
diff --git a/docview/src/SearchTable.pas b/docview/src/SearchTable.pas index 49c67ff5..db682c54 100644 --- a/docview/src/SearchTable.pas +++ b/docview/src/SearchTable.pas @@ -1,20 +1,32 @@ +{ + fpGUI - Free Pascal GUI Toolkit + + Copyright 2003 Aaron Lawrence (aaronl at consultant dot com) + Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this + distribution, for details of the copyright. + + See the file COPYING.modifiedLGPL, included in this distribution, + for details about redistributing fpGUI. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + Description: + Code to read and use the IPF search tables. Note: The RLE + decompression was arrived at by trial and error. It seems + to be correct but it's difficult to test. +} + Unit SearchTable; {$mode objfpc}{$H+} -// NewView - a new OS/2 Help Viewer -// Copyright 2003 Aaron Lawrence (aaronl at consultant dot com) -// This software is released under the Gnu Public License - see readme.txt - -Interface +interface uses Classes, IPFFileFormatUnit; -// Code to read and use IPF search tables -// NB The RLE decompression was arrived at by trial and error -// it seems to be correct but it's difficult to test. - type TSearchTable = class(TObject) protected @@ -47,7 +59,9 @@ type end; -Implementation + +implementation + constructor TSearchTable.Create( Data: pointer; RecordLengthIs16Bit: boolean; |