Category : Files from Magazines
Archive   : ITP9102.ZIP
Filename : NDX_TEST.PAS

{$N+,E+}
PROGRAM NDX_Test;
USES NDX;

CONST
Count: Longint = 0;

VAR
N: _NDX;

{$F+} PROCEDURE ProcessNDXEntry
(VAR N: _NDX; VAR Entry: NDXentry); {$F-}
BEGIN
Write ('RecNo: ', Entry^.RecNo : 5, '; Key: ');
IF N.H.NumericKey THEN
WriteLn (Entry^.DoubleKey : 19 : 4)
ELSE
WriteLn (NDXgetKey (N, Entry));
Inc (Count);
END;

BEGIN {NDX_Test}

{ To run rename one of your index files to MyIndex.NDX or
use one of the two index files--MyIndex1.NDX or MyIndex2.NDX
we've provided in the ARC file. }

NDXopen (N, 'MyIndex.NDX');
NDXtraverse (N, ProcessNDXEntry);
NDXclose (N);

WriteLn (Count, ' records processed.');
END. {NDX_Test}