Создание компонента TTable без формы III

Для создания таблицы программным способом вы должны сделать приблизительно следующее:

with Table1 do begin

Close;

TableName := 'test.db';

TableType := ttParadox;

DatabaseName := 'Sample';

FieldDefs.Clear;

FieldDefs.Add('Field1',ftString,10,false); {FldName,FldType,FldLength,Required}

...

IndexDefs.Add('','Field1',[ixPrimary]); { Создание первичного индекса }

CreateTable;

end;

[000375]