Статьи
|
Как создать таблицу без применения 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
|