Создание таблицы Paradox

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Вот маленький кусочек кода для создания таблицы 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;

{/codecitation}

Добавить комментарий