How to modify the structure of a Paradox table at runtime (Views: 100)


I am upgrading an application and need to add fields to a Paradox TTable database. The application should inspect the existing database file structure and upgrade the customers existing database if necessary.


First, open the files using a TTables exclusively, and check for fields. I was adding fields so I used the following code:

with tblEmployer do
  lFoundAddCalcMethod := FindField('RetireCalcMethod') <> nil;
  lFoundRetireFundMethod := FindField('RetireFundMethod') <> nil;

If I was altering a field (for example, say I wanted to make a field change from Integer to String), you could assing the result of FindField to a TField variable and check it. Then I alter the table as needed:

if not lFoundAddCalcMethod then

and the SQL part of the TQuery:

alter table "MAXXEMPL.DB"
add RetireCalcMethod character(2),
add RetireFundDollar Float,
add RetireFundPercent Float,
add LocalTaxMthd character(2);

<< Back to main page