Sqlite (iii) under Delphi FIREDAC get the basic information of the database

Add on a blank form: tfdconnection, Tfdphyssqlitedriverlink, Tfdguixwaitcursor, TMemo

procedureTform1.formcreate (Sender:tobject);varList:tstrings; V:variant;beginFdconnection1.open (' Driverid=sqlite;

  Database=c:\temp\fddemo.sdb ');

  List: = tstringlist.create;
  Fdconnection1.getinforeport (List);
  Memo1.clear;
  MEMO1.LINES.ADD (' ==> Get connection information: ');

  Memo1.Lines.AddStrings (List);
  Fdconnection1.gettablenames (",", ",", List);
  MEMO1.LINES.ADD (#13 #10 ' ==> gets the list of table names in the database: ');

  Memo1.Lines.AddStrings (List);
  Fdconnection1.gettablenames (', ', ', ', List, [], [Tkview]);
  MEMO1.LINES.ADD (#13 #10 ' ==> gets the list of query names in the database: ');

  Memo1.Lines.AddStrings (List);
  Fdconnection1.getfieldnames (', ', ', ' Orders ', ', List ');
  MEMO1.LINES.ADD (#13 #10 ' ==> gets the list of field names in the Orders table: ');

  Memo1.Lines.AddStrings (List); V: = FDConnection1.ConnectionMetaDataIntf.GetTables ([], [tktable], ', ', ', ', '). Rows[0].
  GetData (0);
  MEMO1.LINES.ADD (#13 #10 ' ==> gets the first data in the first column of the first table: ');

  MEMO1.LINES.ADD (V); List.free; End;