摘要： 直接上代码吧：1functionGetSQLByTableName(sTableName:string):String;2var3aDataSet:TDataSet;4s:String;5aField:TField;6aFieldList,aFieldDescriptionList:TList<string>;7functionGetFieldDescription(sTable,sField:string):String;8var9sSQL:String;10begin11sSQL:='select sys.extended_properties.value from s 阅读全文