I think the size of cdx will the same after delete and index on.
better is:
pack MEMO
>because i do not want to extend the size of cdx
>see my code
>
>Set Exclusive On
> Set Safety off
> Close Databases All
> Close Indexes
> If Directory('CTEMP')=.T.
> Cd CTEMP
> Copy File *.* To ..
> Cd ..
> Endif
>DELETE FILE dig.cdx
>DELETE file staff.cdx
>Select 1
> Use dig
> Index On code Tag code
> Index On descr Tag descr
> Select 2
> Use staff
> Index On descr Tag descr
> Index On acode Tag acode
> Index On dcode Tag dcode
> Index On code Tag code
> INDEX ON llcode+sec Tag llcode
> ........
> Set Safety On
>Endproc
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
