PrimärIndex wird nicht angelegt

[Klaus01]

Hallo Uwe,

danke - auch dann wird leider kein PrimaryKey angelegt.

Delphi-Quellcode:

procedure TForm1.createTable;
var
  table: TFDTable;
begin
  table := TFDTable.Create(nil);
  try
    table.Connection := fDbConnection;
    table.TableName := 'tab1';
    table.FieldDefs.add('row1', ftInteger, 0, true);
    table.AddIndex('pkRow1', 'row1', '', [soPrimary]);
    table.CreateTable(false,[tpTable, tpPrimaryKey, tpGenerators, tpTriggers]);
  finally
    table.Free;
  end;
end;