Вот маленький кусочек кода для создания таблицы Paradox:
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;
|