Category : Pascal Source Code
Archive   : TPDB311.ZIP
Filename : TPDBINDX.TPU
´$
$
4
N
b
b
8( Ø X @ ~ Ôç g í Ù Qn
ÄE » b  Í
*µÕ ²¿ ?
ÿ: Í ð ¿© zD ã ? YTPDBINDX HÖ è YSYSTEM aéè YDOS ñ Ö QDATAFILEÎ z=e RF 'f à R FIRSTFREE =æ à 'R
NUMBERFREE Tæ à RINT1 eæ à RITEMSIZE zÖ à TRNUMREC æ à Q
TPDBKEYSTR¯Î þ æ à ÿ à Î QTPDBITEMËÎ ÓÝ Ý ñ RDATAREF ñæ à RPAGEREF æ à RKEY ¯Î QTPDBPAGE%Î -7 w_ RITEMSONPAGE _OÎ æ à RBCKWPAGEREF wæ à 7R ITEMARRAY Î æ à ËÎ Î ÷ QTPDBPAGEPTR¼Î
%Î QTPDBSEARCHSTEPÚÎ âì ì RPAGEREF æ à R ITEMARRINDEX æ à QTPDBPATH9Î æ à @ ÚÎ )Î Q INDEXFILEVÎ Ü ^h ôz RDATAF zÎ hR
ALLOWDUPLKEYS þ à RKEYL ¥¶ à RRR ´æ à ¥RPP Ãæ à RPATH 9Î Q INDEXFILEPTRèÎ
VÎ Q TPDBSTACKRECÎ Q = RPAGE '%Î R INDEXFPTR=èÎ 'RPAGEREFQæ à RUPDATED þ à QTPDBSTACKRECPTR|Î
Î Q
TPDBPAGESTACK©Î æ à âÎ Î è QTPDBPAGESTACKPTRÍÎ
©Î QTPDBPAGEMAPøÎ æ à Ö à èÎ QTPDBPAGEMAPPTRÎ
øÎ QTPDBRECORDBUFFER:Î BL ] RPAGE ]Î LRR {Î æ à ¶ à kÎ RI æ à QTPDBRECORDBUFPTRÎ
:Î Q
FILEASCIIZ×Î @ æ à @ à ÇÎ QFILENAMEÎ B æ à C à óÎ P ITEMOVERHEADæ à Ö P PAGEOVERHEADæ à P NODUPLICATESæ à P
DUPLICATESæ à PRECTOOLARGEæ à è PRECTOOSMALLæ à é PKEYTOOLARGEæ à ê PRECSIZEMISMATCHæ à ë PKEYSIZEMISMATCHæ à ì PMEMOVERFLOWæ à í µQPROCPTRÎ
¶ à RTPDBERR Ö à ROK þ à èRTAERRORPROC Î R INHANDLER þ à RGOTONE þ à R
TERRORNAME Î mSADDKEY
VÎ æ à b à SADDREC
Î æ à b à 9SCLEARKEY
VÎ S CLOSEFILE
Î WS
CLOSEINDEX
VÎ "S DELETEKEY
VÎ æ à b à S DELETEREC
Î æ à S
FLUSHINDEX
VÎ SFINDKEY$
VÎ æ à b à SGETREC(
Î æ à b à SMAKEFILE,
Î Î Ö à S MAKEINDEX0
VÎ Î ¶ à ¶ à eSNEXTKEY4
VÎ æ à b à SOPENFILE8
Î Î Ö à ª S OPENINDEX<