delphi FDQuery获取数据库表字段注释信息

const
dbstr='select COLUMN_NAME,column_comment from information_schema.columns where table_schema = ''f_szhnjy_com'' and table_name = ''info'' ;';

begin

FDQuery_class.Close;
FDQuery_class.DataInfo.SQL.Text := dbstr;
if not  FDQuery_class.OpenData then ShowMessage('打开数据错误，信息为：'+FDQuery_class.DataInfo.ErrMsg);
COLUMN_NAME_LIST.Clear;
FDQuery_class.First;
while not FDQuery_class.Eof do
begin
COLUMN_NAME_LIST.Add(FDQuery_class.FieldByName('COLUMN_NAME').AsString+':'+FDQuery_class.FieldByName('column_comment').AsString); //+':'+FDQuery_class.FieldByName('typeid').AsString
FDQuery_class.Next;
end;
//COLUMN_NAME_LIST.SaveToFile('111.txt');