🚀 go-pugleaf

Create a folder "C:\\TestDBTable" and
try a minimum piece of code.If the code is working
then you can add step by step additional fields in your table

    TTable *table;
    table=new TTable(NULL);
    table->Active=false;
    table->TableType=ttDefault;
    table->TableType=ttParadox;
    table->DatabaseName = "C:\\TestDBTable";
    table->TableName= EditBDETableName->Text;
    table->FieldDefs->Clear();
    table->FieldDefs->Add("Id", ftString, 10, FALSE);
    table->FieldDefs->Add("Remark", ftInteger, 0, FALSE);
    table->FieldDefs->Add("State", ftString, 25, FALSE);
    // .....  add additional fields here .......
    table->IndexDefs->Clear();
    table->IndexDefs->Add("", "Id;Remark",TIndexOptions()<<ixPrimary << 
ixUnique);
    //table->IndexDefs->Add("StateX", "State",TIndexOptions()<< 
ixCaseInsensitive);
    table->CreateTable();
    delete table;

You can use Database Explorer to verify the fields of
table Indices

Best Regards

_Minas Harokopos

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

<MR> wrote

> How to create (dynamically) a primary index with *more than one
> field*?
>
> I tried the following:
>
>    TTable *table;
>    table=new TTable(NULL);
>    table->Active=false;
>    table->TableType=ttDefault; // uses adequate table-type (e.g.
> ttParadox, ttDBase) automatically, dependent on the file-extention
>    table->TableType=ttParadox;
>    table->TableName=EditBDETableName->Text;
>    table->FieldDefs->Clear();
>    table->FieldDefs->Add("Id", ftString, 10, FALSE);
>    ...
>    table->FieldDefs->Add("State", ftString, 25, FALSE);
>    table->IndexDefs->Clear();
>
> and than
>
>    table->IndexDefs->Add("", "Id;Remark",
> TIndexOptions()<<ixPrimary);