🚀 go-pugleaf

? <MR> wrote

> So inserting a FieldDef between Id and Remark in your sample will
> result in the same exception I described.
>
> Is this always the case or is this specific for the data-base type,
> i.e. Paradox.
>
> Or is there a way to allow non-subsequent fields being indexed too?
>

You are right.Key Fields for the primary index must be consecutive.I tried 
the same code
in a .mdb database and I get the same exception. To stop the exception I 
used
the other way ,
TFieldDef *fldDef = table->FieldDefs->AddFieldDef();

and I used FieldNo to specify the physical field order.
In this case , though , I got a mess in the fields of indices


    TTable *table;
    table=new TTable(NULL);
    table->Active=false;
    table->TableType=ttParadox;
    table->DatabaseName =  "C:\\TestDBTable";// Database1->DatabaseName;
    table->TableName= Edit1->Text;
    table->FieldDefs->Clear();
    //fields definition
    TFieldDef *fldDef = table->FieldDefs->AddFieldDef();
    fldDef->Name ="Id";
    fldDef->DataType = ftString;
    fldDef->Size =10;
    fldDef->Required =false;
    fldDef->FieldNo =1;

    fldDef = table->FieldDefs->AddFieldDef();
    fldDef->Name ="OtherFld";
    fldDef->DataType = ftString;
    fldDef->Size =25;
    fldDef->Required =false;
    fldDef->FieldNo =3;

    fldDef = table->FieldDefs->AddFieldDef();
    fldDef->Name ="State";
    fldDef->DataType = ftString;
    fldDef->Size =25;
    fldDef->Required =false;
    fldDef->FieldNo =4;

    fldDef = table->FieldDefs->AddFieldDef();
    fldDef->Name ="Remark";
    fldDef->DataType = ftInteger;
    fldDef->Size =0;
    fldDef->Required =false;
    fldDef->FieldNo =2;

    table->IndexDefs->Clear();
//    TIndexDef *idxDef = table->IndexDefs->AddIndexDef();
//    idxDef->Name="";
//    idxDef->Fields = "Id;Remark";
//    idxDef->Options << ixPrimary;
    // indices
    table->IndexDefs->Add("", "Id;Remark",TIndexOptions()<<ixPrimary);
    table->IndexDefs->Add("StateX", "State",TIndexOptions()<< 
ixCaseInsensitive);
    table->IndexDefs->Add("OtherX", "OtherFld",TIndexOptions()<< 
ixCaseInsensitive);
    table->CreateTable();
    delete table;

To get right results with no exception, Remark field must be defined next to
Id field definition .

Best Regards

_Minas Harokopos

------
"Only the virtue's conquests have certainty" Sofokleous Erephyle