[DYURIK]

Значит слушай сюда....
Код ты конечно с хелпа стянул и по этому кое-что не получается (надо вдуплить для чего каждая строка)....
Но вот как делаю я:
 TTable* dbftable = new TTable(Application);
 dbftable->DatabaseName=/*сдесь алиас базы*/alias;
 dbftable->TableName="EXCH_TMP.DBF";/*сдесь че хош*/
  if (!dbftable->Exists)
     {
     dbftable->Active = false;
     dbftable->TableType=ttDBase;/*сдесь пишеш свой тип*/
     dbftable->FieldDefs->Clear();
     dbftable->FieldDefs->Add("NOMKV", ftInteger, 0, False);
     dbftable->FieldDefs->Add("TYP", ftInteger, 0, False);
     dbftable->FieldDefs->Add("KODVAL", ftInteger, 0, False);
     dbftable->FieldDefs->Add("SUM_EXCH", ftFloat, 0, False);
     dbftable->FieldDefs->Add("SUM_EQUI", ftFloat, 0, False);
     dbftable->FieldDefs->Add("KURS_OPER", ftFloat, 0, False);
     dbftable->FieldDefs->Add("STATUS", ftInteger, 0, False);
     dbftable->CreateTable();
     }
  dbftable->Active = true;

но это  я делал в 4 билдере
в 5 делаю так:

TTable* Table1= new TTable(Application);

AnsiString * perviy;
AnsiString* vtoroy;
AnsiString * nazva;

perviy = Edit2->Text;
vtoroy = Edit3->Text;
nazva = Edit1->Text;
Table1->Active = false;
Table1->TableName = nazva;

if (! Table1->Exists)
{
* Table1->TableType = ttParadox;
* Table1->FieldDefs->Clear();
* TFieldDef *pNewDef = Table1->FieldDefs->AddFieldDef();
 
if (!perviy.IsEmpty())
 {
* pNewDef->Name = perviy;
* pNewDef->DataType = ftString;
* pNewDef->Size = 20;
* pNewDef->Required = true;
 }
* pNewDef = Table1->FieldDefs->AddFieldDef();
if (!vtoroy.IsEmpty())*
 {
  pNewDef->Name = vtoroy;
* pNewDef->DataType = ftBoolean;
 }

* Table1->CreateTable();
* Table1->Active = true;
* Table1->Append();
 if (Table1->FieldList->Fields[0]->FieldName == perviy)
* Table1->FieldByName(perviy)->AsString = "Петренко";
 if (Table1->FieldList->Fields[1]->FieldName == vtoroy)
* Table1->FieldByName(vtoroy)->AsBoolean = false;
* Table1->Post();
* ShowMessage(AnsiString("Таблица создана");
* }
* else
* {

* ShowMessage(AnsiString("Таблица уже создана");
* * * Table1->Active = false;
* Table1->Active = true;

* }

удачи!!!!

[Galosh]

Вот пасибо. Токо я уже сделал, но чуть не так(да и дипломную уже вчера сдал). Кстати с хелпа не тачил, у меня урезаный Билдер, а еси ты про красоту, дык это я для себя ифы разбрасывал, чтоб проще было .
Так вот так как никто не писал(посотри когда тема создана) пошел через Ифы(похожим способом). Вот токо при проверке второе разветвление не пахало. Тоесть проверялось, но не пахало. С кодом все было нормально. Ошибки небыло - уверен.
Короче не пошло.

Сделал кординально по другому.
При создании формы пермым был запрос "На скоко колонок вы хотите базу?". И в зависимости от того какая цифра была введена выполнялся соответствующий код. кстати использовал switch. Проще...Все равно пасибо, первый человек, которому было не лень

[s]Исправлено: Galosh, 16:48 27-06-2003[/s]