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;
|