Как создать таблицу BDE ?

[Даниил_глазко]

Здравствуйте.У меня такой вопрос:КАК СОЗДАТЬ ФАЙЛ ТАБЛИЦЫ BDE?.
Подскажите пожалуйста.

[_SERGEYX_]

Запусти
c:\Program Files\Common Files\Borland Shared\Database Desktop\Dbd32.exe
А у нее есть свой собственный хэлп.
Там все расписано по шагам.

[Dimasw]

Вот пример:

procedure CreateprotTable;
var
t:ttable;
begin
t:=ttable.Create(nil);
t.TableType:=ttParadox ;
t.DatabaseName:=GetCurrentDir;
t.TableName:='prot';
with t.FieldDefs do
begin
 with AddFieldDef do
  begin
  name:='p99999';
  DataType:=ftAutoInc;
  end;
 with AddFieldDef do
  begin
  name:='fileNam';
  DataType:=ftstring;
  size:=15;
  end;
with AddFieldDef do
  begin
  name:='FPost';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='Snyato';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='FEdit';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='Vsego';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='Error';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='AnatheError';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='NeNaideno';
  DataType:=ftinteger;
  end;
with AddFieldDef do
  begin
  name:='dateVlit';
  DataType:=ftdatetime;
  end;
end;
t.CreateTable;
t.AddIndex('p99999','p99999',[ixPrimary]);
end;