pxrest.dpr

How to restruct paradox DB when you encounter pb whith indexes. You have to use this mecanism to re

{$A+,B-,C-,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q+,R+,S+,T-,U-,V+,W-,X+,Y-,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}

program PXRest;

uses
  Forms,
  main in 'main.pas' {MainForm},
  tblopen in 'tblopen.pas' {TableOpenDlg},
  priv in 'priv.pas' {PrivateDirForm},
  restruct in 'restruct.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TTableOpenDlg, TableOpenDlg);
  Application.CreateForm(TPrivateDirForm, PrivateDirForm);
  Application.Run;
end.