Get data table information with features provided by the DELPHIXE7 dbexpress framework

Uses + data.dbxmetadatanames

Procedure Tmainform.button2click (Sender:tobject);
Var
Cmd:tdbxcommand;
R:tdbxreader;
Begin
Dbcon.open;
CMD: = DBCon.DBXConnection.CreateCommand;
Cmd.commandtype: = Tdbxcommandtypes.dbxmetadata;
Cmd.text: = tdbxmetadatacommands.getcolumns + ' + ' sysfields ';
R: = Cmd.executequery;
While R.next do
Begin
If R.value[tdbxcolumnscolumns.isautoincrement]. Asboolean Then
MEMO1.LINES.ADD (r.value[' ColumnName '). asstring);
End
R.free;
Cmd.free;
End

Dbexpress Framework is very useful! Why a firedac?!? Hey!

Get data table information with features provided by the DELPHIXE7 dbexpress framework