Как создать таблицу Paradox во время выполнения

Печать
Статьи

Как создать таблицу без применения SQL или Database Desktop.

TTable имеет способность создавать таблицы Paradox без применения SQL.


with TTable.create(self) do 
begin 
  DatabaseName := 'C:\projects\data'; 
  TableName := 'Clients'; 
  TableType := ttParadox; 
  with FieldDefs do b 
  begin 
    Add('ID',    ftInteger, 0, True); 
    Add('FName', ftString, 25, False); 
    Add('LName', ftString, 25, False); 
  end; 
  IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]); 
  CreateTable; 
end; 

По материалам http://delphi.3000.com