How to create Paradox-Tables ?

How to create Paradox-Tables ?

2001-04-27 19:32:39


Use this bit of code for creating paradox tables.

\\===============================


Uses DB, DBTables;


with TTable.create(self) do
begin
DatabaseName := 'DBDEMONS';
TableName := 'Temp.db';
TableType := ttParadox;
with FieldDefs do
Begin
FieldDefs.Add('Age', ftInteger, 0, True);
FieldDefs.Add('Name', ftString, 25, False);
FieldDefs.Add('Weight', ftFloat, 0, False);
End;
IndexDefs.Add('','Age', [ixPrimary, ixUnique]);
CreateTable;
End;