with Table1 do
begin
Close;
TableName := "test.db";
TableType := ttParadox;
DatabaseName := "Sample";
FieldDefs.Clear;
{FldName,FldType,FldLength,Required}
FieldDefs.Add("Field1",ftString,10,false);
...
{ Создание первичного индекса }
IndexDefs.Add("","Field1",[ixPrimary]);
CreateTable;
end;
|