[comp.lang.pascal] INDEXED files in TP - UNIT for those interested

C0361@univscvm.csd.scarolina.edu ( Thomas Jenkins) (10/27/90)

Hello,

  I've written a generic indexed file UNIT.  It will work with your defined
records and can optionally encrypt the files ( index and base ) as well.
The actual encryption steps are left out ( to aviod problems ) but the READ.ME
file included explaines the method I used ( very simple, but it works :-) ).

  Also included in the generic Encryption UNIT!  This UNIT will allow you to
encrypt any user defined record!  The encryption is done when each record is
written and the file is NEVER decrypted.  As each record is read, the Read
procedure decrypts the record IN MEMORY.

  If anyone is interested in these units ( units, READ.ME, and four example
programs ), I have them ZIPed and XXEncoded to send out.  Please remember that
the IndexedFile UNIT was written in two days and is not optimised ( but seeks
are reasonably fast do to a binary file search ).  The sort done on the new
index file is slow - OK so it's a bubble sort - but the file is sorted a 11
members and I haven't has time to put in a binary search yet!

Anyone interested please contact me at the below addresses,

tom

THOMAS E. JENKINS, JR.

  PROGRAMMER, UNIVERSITY OF SOUTH CAROLINA
    BITNET, C0361 AT UNIVSCVM.BITNET
     INTERNET C0361 AT UNIVSCVM.CSD.SCAROLINA.EDU