🚀 go-pugleaf

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);

or instead

  table->IndexDefs->AddIndexDef()->Name="";
  table->IndexDefs->AddIndexDef()->Fields="Id"/*";Remark"*/;

table->IndexDefs->AddIndexDef()->Options=TIndexOptions()<<ixPrimary/*<<ixUnique*/;

and finally 

    table->CreateTable();
    table->Free();

When CreateTable() is executed I got an -exception
  'Zahl au�erhalb des g�ltigen Bereichs
   Tabelle nicht vorhanden 
   Tabelle: ...
translated
  'Number outside the valid range
   Table not available
   Table: ...

What did I do wrong?

Thanks,

Michael
I do not get this exception when using

    table->IndexDefs->Add("", "Id", TIndexOptions()<<ixPrimary);

, but unfortunatly 'Id' is not sufficent (i.e. there might be more
than one db-entry with the same id)




    /*  { Indizes der neuen Tabelle definieren }
        IndexDefs.Clear;
        with IndexDefs.AddIndexDef do begin
          Name := '';
          Fields := 'First';
          Options := [ixPrimary];
        end;
    */
    // table->IndexDefs->AddIndexDef()->Name="";
    // table->IndexDefs->AddIndexDef()->Fields="Id"/*";Remark"*/;
    //
table->IndexDefs->AddIndexDef()->Options=TIndexOptions()<<ixPrimary;

    // table->IndexDefs->Add("", "Id;Remark",
TIndexOptions()<<ixPrimary/*<<ixUnique*/);

    table->CreateTable();
    table->Free();
  }