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

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Создание таблицы 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;

Источник - Проект "Delphi World" © Выпуск 2002 - 2004
Автор проекта: Акулов Николай

| Работа в Москве Сегодня - сайты по поиску работы Как заработать триста руб, в день. |