Здравствуйте, Danchik, Вы писали:
[]
D>Хм, создаются таблички. Это самое, может креш код (сампл) который крешает (не работает).
Да и у меня тоже создаются
А код довольно простой и тупой:
bool __fastcall TDB::CreateCategoryTable()
{
try
{
// Create table for note categories
FCategoryTable->TableLevel = 7;
FCategoryTable->TableName = FCategoryFileName;
FCategoryTable->OpenMode = omAutoCreate;
FCategoryTable->StoreDefs = true;
FCategoryTable->FieldDefs->Clear();
//DONE: Структура таблицы категорий
TFieldDef* def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftAutoInc;
def->Name = "CategoryID";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftString;
def->Name = "CategoryName";
def->Size = MAX_CATEGORY_NAME_LENGTH;
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftDateTime;
def->Name = "CreatedDate";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftBoolean;
def->Name = "Deleted";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = true;
def->DataType = ftInteger;
def->Name = "IconIndex";
def = FCategoryTable->FieldDefs->AddFieldDef();
def->Required = false;
def->DataType = ftInteger;
def->Name = "ParentCategoryID";
FCategoryTable->Active = true;
FCategoryTable->Active = false;
}
catch(Exception& e)
{
#ifdef _DEBUG
Application->ShowException(&e);
#endif
return false;
}
return true;
}
Есть вторая функция на создание второй таблички — там по виду то же самое, за добавлением создания memo-полей. Memo-поля добавляются аналогичным образом. Вот в какой-то из этих функций и происходит облом...
D>Так с ходу у TDBF есть событие OnLocaleError : TDbfLocaleErrorEvent
Спасибо, попробую...