unit Autoinc;

interface

uses

 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

 Forms, Dialogs, DBTables, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,

 DbiTypes, DbiErrs, DBIProcs;

const

 szTblName = 'CR8PXTBL'; { Имя создаваемой таблицы. }

 szTblType = szPARADOX; { Используемый тип таблицы. }

 { При создании таблицы используется полное описание поля }

const

 fldDes: array[0..1] of FLDDesc = (

  ({ Поле 1 - AUTOINC }

  iFldNum: 1; { Номер поля }

  szName: 'AUTOINC'; { Имя поля }

  iFldType: fldINT32; { Тип поля }

  iSubType: fldstAUTOINC; { Подтип поля }

  iUnits1: 0; { Размер поля }

  iUnits2: 0; { Десятичный порядок следования ( 0 ) }

  iOffset: 0; { Смещение в записи ( 0 ) }

  iLen: 0; { Длина в байтах ( 0 ) }

  iNullOffset: 0; { Для Null-битов ( 0 ) }

  efldvVchk: fldvNOCHECKS; { Проверка корректности ( 0 ) }

  efldrRights: fldrREADWRITE { Права }

  ),

  ({ Поле 2 - ALPHA }

  iFldNum: 2; szName: 'ALPHA';

  iFldType: fldZSTRING; iSubType: fldUNKNOWN;

  iUnits1: 10; iUnits2: 0;

  iOffset: 0; iLen: 0;

  iNullOffset: 0; efldvVchk: fldvNOCHECKS;

  efldrRights: fldrREADWRITE

  ));

type

 TForm1 = class(TForm)

  Button1: TButton;

  Database1: TDatabase;

  procedure Button1Click(Sender: TObject);

 private

  { Private declarations }

 public

  { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

 TblDesc: CRTblDesc;

 uNumFields: Integer;

 Rslt: DbiResult;

 ErrorString: array[0..dbiMaxMsgLen] of Char;

begin

 FillChar(TblDesc, sizeof(CRTblDesc), #0);

 lStrCpy(TblDesc.szTblName, szTblName);

 lStrCpy(TblDesc.szTblType, szTblType);

 uNumFields := trunc(sizeof(fldDes) / sizeof(fldDes[0]));

 TblDesc.iFldCount := uNumFields;

 TblDesc.pfldDesc := @fldDes;

 Rslt := DbiCreateTable(Database1.Handle, TRUE, TblDesc);

 if Rslt <> dbiErr_None then

 begin

  DbiGetErrorString(Rslt, ErrorString);

  MessageDlg(StrPas(ErrorString), mtWarning, [mbOk], 0);

 end;

end;

end.