Автор: delphi | 14.12.2007 | 9:21 |
В рубриках: Базы данных
Вот маленький кусочек кода для создания таблицы 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;
Эта запись была опубликована 14.12.2007в 21:07. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.