Советы по Delphi
Создание компонента 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]
