Советы по 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]



Содержание раздела