链接：https://pan.baidu.com/s/1Glye61WgYd_wC0uOfx9ZoQ
提取码：dqd9
关键部份
FDConnection1.GetTableNames('', '', '', ListBox1.Items);
StringGrid1.Cells[1, i + 1] := FDMetaInfoQuery1.FieldByName('COLUMN_NAME').AsString; // '名';
StringGrid1.Cells[2, i + 1] := FDMetaInfoQuery1.FieldByName('COLUMN_TYPENAME').AsString; // '值';
表列 自动带出 。
关键字 自动补全
标签：COLUMN,Cells,StringGrid1,Delphi10.3,图形操作,SQLite3,AsString From： https://www.cnblogs.com/tulater/p/18146439