Создание таблицы Paradox

Вот маленький кусочек кода для создания таблицы Paradox:

with
 TTable.create(self) do

begin

  DatabaseName := 'C:	emp';
  TableName := 'FOO';
  TableType := ttParadox;
  with
 FieldDefs do

  begin

    Add('Age', ftInteger, 0, True
);
    Add('Name', ftString, 25, False
);
    Add('Weight', ftFloat, 0, False
);
  end
;
  IndexDefs.Add('MainIndex', 'IntField', [ixPrimary, ixUnique]);
  CreateTable;
end
;

Другое по теме:

• Byte-поля Paradox
• Paradox в сети
• Paradox и неверные индексы Win95