Советы по Delphi
Создание таблицы Paradox
Вот маленький кусочек кода для создания таблицы 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; |
[001233]
