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

Следующая статья: Проблемы работы с Paradox в сети.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TTable.Create(Self) do
  begin
    DatabaseName :='c:\windows\temp';
    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','Age', [ixPrimary, ixUnique]);
    CreateTable;
  end;
end;