with TTable.create(self) do
begin
DatabaseName := "C:\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", "IntField", [ixPrimary, ixUnique]);
CreateTable;
end;
|