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;
|
Создание таблицы Paradox