Delphi将TableToClass 表文件转换成类文件

Delphi将TableToClass 表文件转换成类文件，//刷新数据库procedure RefreshDB; 　　 //读取数据库名称列表 　　 function ReadDBNameList: TStringList; 　　 //读取数据表名称列表 　　 function ReadTableNameList: TStringList; 　　 function TableToClassInfo(ATableName: string): TStrings; 　　 //取得SQLServer字段的类型，返回相应Delphi变量类型 　　 function GetColumnType(AType: integer): string; 　　 //取得SQLServer字段的类型，返回相应字符串 　　 function GetDBColumnType(AType: integer): string; 　　 //仅生成类信息 　　 procedure GenerateClassInfo; 　　 //生成Unit文件 　　 procedure GenerateUnitFile; 　　 procedure TableToClassInfo1(ATableName: string; var AClassList1, AClassList2: TStringList); 　　 //取得保存的文件名，没有扩展名 　　 function GetFileName(AFileName: string): string; 　　 //保存文件 　　 procedure SaveToFile(AList: TStringList = nil); 　　 //取取选择数据表的数量