delphi 全国省市名称检测函数

const

sheng='北京'+#13#10+

'天津'+#13#10+

'河北'+#13#10+

'山西'+#13#10+

'内蒙古'+#13#10+

'辽宁'+#13#10+

'吉林'+#13#10+

'黑龙江'+#13#10+

'上海'+#13#10+

'江苏'+#13#10+

'浙江'+#13#10+

'安徽'+#13#10+

'福建'+#13#10+

'江西'+#13#10+

'山东'+#13#10+

'河南'+#13#10+

'湖北'+#13#10+

'湖南'+#13#10+

'广东'+#13#10+

'广西'+#13#10+

'海南'+#13#10+

'重庆'+#13#10+

'四川'+#13#10+

'贵州'+#13#10+

'云南'+#13#10+

'西藏'+#13#10+

'陕西'+#13#10+

'甘肃'+#13#10+

'青海'+#13#10+

'宁夏'+#13#10+

'新疆'+#13#10+

'香港'+#13#10+

'澳门'+#13#10+

'台湾';

shi='霍尔果斯市'+#13#10+

'呼和浩特市'+#13#10+

'呼伦贝尔市'+#13#10+

'霍林郭勒市'+#13#10+

'阿拉山口市'+#13#10+

'可克达拉市'+#13#10+

'克拉玛依市'+#13#10+

'齐齐哈尔市'+#13#10+

'鄂尔多斯市'+#13#10+

'额尔古纳市'+#13#10+

'巴彦淖尔市'+#13#10+

'锡林浩特市'+#13#10+

'香格里拉市'+#13#10+

'二连浩特市'+#13#10+

'乌鲁木齐市'+#13#10+

'五大连池市'+#13#10+

'图木舒克市'+#13#10+

'乌兰察布市'+#13#10+

'乌兰浩特市'+#13#10+

'格尔木市'+#13#10+

'高碑店市'+#13#10+

'冷水江市'+#13#10+

'老河口市'+#13#10+

'连云港市'+#13#10+

'防城港市'+#13#10+

'德令哈市'+#13#10+

'库尔勒市'+#13#10+

'共青城市'+#13#10+

'胡杨河市'+#13#10+

'葫芦岛市'+#13#10+

'峨眉山市'+#13#10+

'哈尔滨市'+#13#10+

'景德镇市'+#13#10+

'井冈山市'+#13#10+

'都江堰市'+#13#10+

'公主岭市'+#13#10+

'佳木斯市'+#13#10+

'嘉峪关市'+#13#10+

'六盘水市'+#13#10+

'瓦房店市'+#13#10+

'吐鲁番市'+#13#10+

'五指山市'+#13#10+

'武夷山市'+#13#10+

'五家渠市'+#13#10+

'铁门关市'+#13#10+

'绥芬河市'+#13#10+

'双鸭山市'+#13#10+

'调兵山市'+#13#10+

'扎兰屯市'+#13#10+

'驻马店市'+#13#10+

'张家港市'+#13#10+

'张家界市'+#13#10+

'张家口市'+#13#10+

'牙克石市'+#13#10+

'牡丹江市'+#13#10+

'攀枝花市'+#13#10+

'平顶山市'+#13#10+

'满洲里市'+#13#10+

'梅河口市'+#13#10+

'马鞍山市'+#13#10+

'马尔康市'+#13#10+

'七台河市'+#13#10+

'三门峡市'+#13#10+

'石家庄市'+#13#10+

'石嘴山市'+#13#10+

'石河子市'+#13#10+

'青铜峡市'+#13#10+

'秦皇岛市'+#13#10+

'日喀则市'+#13#10+

'阿图什市'+#13#10+

'阿勒泰市'+#13#10+

'大石桥市'+#13#10+

'阿克苏市'+#13#10+

'丹江口市'+#13#10+

'阿拉尔市'+#13#10+

'阿尔山市'+#13#10+

'泰兴市'+#13#10+

'太原市'+#13#10+

'泰安市'+#13#10+

'唐山市'+#13#10+

'泰州市'+#13#10+

'台山市'+#13#10+

'台州市'+#13#10+

'塔城市'+#13#10+

'保定市'+#13#10+

'太仓市'+#13#10+

'洮南市'+#13#10+

'天长市'+#13#10+

'宝鸡市'+#13#10+

'铁力市'+#13#10+

'铁岭市'+#13#10+

'腾冲市'+#13#10+

'滕州市'+#13#10+

'天水市'+#13#10+

'天津市'+#13#10+

'天门市'+#13#10+

'保山市'+#13#10+

'朔州市'+#13#10+

'北京市'+#13#10+

'四平市'+#13#10+

'北海市'+#13#10+

'四会市'+#13#10+

'水富市'+#13#10+

'双河市'+#13#10+

'北票市'+#13#10+

'双辽市'+#13#10+

'北流市'+#13#10+

'绥化市'+#13#10+

'遂宁市'+#13#10+

'随州市'+#13#10+

'松原市'+#13#10+

'松滋市'+#13#10+

'苏州市'+#13#10+

'平度市'+#13#10+

'北安市'+#13#10+

'文山市'+#13#10+

'温州市'+#13#10+

'文昌市'+#13#10+

'白银市'+#13#10+

'潍坊市'+#13#10+

'卫辉市'+#13#10+

'邳州市'+#13#10+

'温岭市'+#13#10+

'渭南市'+#13#10+

'吴忠市'+#13#10+

'梧州市'+#13#10+

'芜湖市'+#13#10+

'吴川市'+#13#10+

'霸州市'+#13#10+

'五常市'+#13#10+

'白城市'+#13#10+

'无锡市'+#13#10+

'白山市'+#13#10+

'乌海市'+#13#10+

'无为市'+#13#10+

'乌苏市'+#13#10+

'桐乡市'+#13#10+

'铜川市'+#13#10+

'桐城市'+#13#10+

'图们市'+#13#10+

'铜陵市'+#13#10+

'铜仁市'+#13#10+

'同仁市'+#13#10+

'通化市'+#13#10+

'同江市'+#13#10+

'通辽市'+#13#10+

'万源市'+#13#10+

'百色市'+#13#10+

'威海市'+#13#10+

'蚌埠市'+#13#10+

'包头市'+#13#10+

'万宁市'+#13#10+

'平凉市'+#13#10+

'青州市'+#13#10+

'博乐市'+#13#10+

'沁阳市'+#13#10+

'钦州市'+#13#10+

'青岛市'+#13#10+

'曲阜市'+#13#10+

'曲靖市'+#13#10+

'泊头市'+#13#10+

'泉州市'+#13#10+

'衢州市'+#13#10+

'清镇市'+#13#10+

'清远市'+#13#10+

'亳州市'+#13#10+

'庆阳市'+#13#10+

'邛崃市'+#13#10+

'琼海市'+#13#10+

'普洱市'+#13#10+

'栖霞市'+#13#10+

'普宁市'+#13#10+

'沧州市'+#13#10+

'凭祥市'+#13#10+

'莆田市'+#13#10+

'濮阳市'+#13#10+

'萍乡市'+#13#10+

'潜江市'+#13#10+

'潜山市'+#13#10+

'平泉市'+#13#10+

'迁安市'+#13#10+

'启东市'+#13#10+

'绍兴市'+#13#10+

'射洪市'+#13#10+

'韶关市'+#13#10+

'韶山市'+#13#10+

'邵东市'+#13#10+

'邵武市'+#13#10+

'邵阳市'+#13#10+

'神木市'+#13#10+

'毕节市'+#13#10+

'深圳市'+#13#10+

'深州市'+#13#10+

'什邡市'+#13#10+

'尚志市'+#13#10+

'商洛市'+#13#10+

'商丘市'+#13#10+

'上饶市'+#13#10+

'上海市'+#13#10+

'石狮市'+#13#10+

'石首市'+#13#10+

'北屯市'+#13#10+

'平果市'+#13#10+

'寿光市'+#13#10+

'舒兰市'+#13#10+

'市北区'+#13#10+

'市南区'+#13#10+

'市中区'+#13#10+

'十堰市'+#13#10+

'沈阳市'+#13#10+

'嵊州市'+#13#10+

'平湖市'+#13#10+

'北镇市'+#13#10+

'本溪市'+#13#10+

'瑞安市'+#13#10+

'瑞昌市'+#13#10+

'瑞金市'+#13#10+

'瑞丽市'+#13#10+

'汝州市'+#13#10+

'乳山市'+#13#10+

'滨州市'+#13#10+

'三河市'+#13#10+

'任丘市'+#13#10+

'仁怀市'+#13#10+

'如皋市'+#13#10+

'日照市'+#13#10+

'荣成市'+#13#10+

'山南市'+#13#10+

'厦门市'+#13#10+

'汕尾市'+#13#10+

'汕头市'+#13#10+

'三亚市'+#13#10+

'三明市'+#13#10+

'三沙市'+#13#10+

'沙河市'+#13#10+

'沙市区'+#13#10+

'彬州市'+#13#10+

'禹城市'+#13#10+

'安康市'+#13#10+

'禹州市'+#13#10+

'玉树市'+#13#10+

'玉环市'+#13#10+

'玉林市'+#13#10+

'玉门市'+#13#10+

'安陆市'+#13#10+

'余姚市'+#13#10+

'榆林市'+#13#10+

'榆树市'+#13#10+

'岳阳市'+#13#10+

'云浮市'+#13#10+

'安国市'+#13#10+

'玉溪市'+#13#10+

'原平市'+#13#10+

'沅江市'+#13#10+

'益阳市'+#13#10+

'银川市'+#13#10+

'英德市'+#13#10+

'荥阳市'+#13#10+

'营口市'+#13#10+

'安宁市'+#13#10+

'鹰潭市'+#13#10+

'宜兴市'+#13#10+

'宜城市'+#13#10+

'宜春市'+#13#10+

'宜都市'+#13#10+

'义马市'+#13#10+

'义乌市'+#13#10+

'永康市'+#13#10+

'永州市'+#13#10+

'应城市'+#13#10+

'永安市'+#13#10+

'永城市'+#13#10+

'永济市'+#13#10+

'中山市'+#13#10+

'中卫市'+#13#10+

'钟祥市'+#13#10+

'重庆市'+#13#10+

'舟山市'+#13#10+

'镇江市'+#13#10+

'郑州市'+#13#10+

'枝江市'+#13#10+

'子长市'+#13#10+

'资阳市'+#13#10+

'淄博市'+#13#10+

'遵化市'+#13#10+

'遵义市'+#13#10+

'自贡市'+#13#10+

'邹城市'+#13#10+

'邹平市'+#13#10+

'株洲市'+#13#10+

'诸城市'+#13#10+

'诸暨市'+#13#10+

'周口市'+#13#10+

'珠海市'+#13#10+

'涿州市'+#13#10+

'资兴市'+#13#10+

'庄河市'+#13#10+

'湛江市'+#13#10+

'漳平市'+#13#10+

'漳州市'+#13#10+

'张掖市'+#13#10+

'运城市'+#13#10+

'安达市'+#13#10+

'枣阳市'+#13#10+

'枣庄市'+#13#10+

'昭通市'+#13#10+

'招远市'+#13#10+

'肇东市'+#13#10+

'肇庆市'+#13#10+

'樟树市'+#13#10+

'长春市'+#13#10+

'长葛市'+#13#10+

'长垣市'+#13#10+

'长治市'+#13#10+

'长沙市'+#13#10+

'襄阳市'+#13#10+

'湘乡市'+#13#10+

'项城市'+#13#10+

'咸宁市'+#13#10+

'咸阳市'+#13#10+

'仙桃市'+#13#10+

'湘潭市'+#13#10+

'新密市'+#13#10+

'新民市'+#13#10+

'新乐市'+#13#10+

'孝感市'+#13#10+

'孝义市'+#13#10+

'辛集市'+#13#10+

'忻州市'+#13#10+

'鞍山市'+#13#10+

'武威市'+#13#10+

'武穴市'+#13#10+

'西安市'+#13#10+

'西昌市'+#13#10+

'舞钢市'+#13#10+

'巴中市'+#13#10+

'武安市'+#13#10+

'武冈市'+#13#10+

'武汉市'+#13#10+

'西市区'+#13#10+

'西宁市'+#13#10+

'扬中市'+#13#10+

'扬州市'+#13#10+

'阳春市'+#13#10+

'偃师市'+#13#10+

'延安市'+#13#10+

'雅安市'+#13#10+

'烟台市'+#13#10+

'延吉市'+#13#10+

'安顺市'+#13#10+

'盐城市'+#13#10+

'伊宁市'+#13#10+

'安庆市'+#13#10+

'伊春市'+#13#10+

'安丘市'+#13#10+

'宜宾市'+#13#10+

'宜昌市'+#13#10+

'仪征市'+#13#10+

'阳泉市'+#13#10+

'阳江市'+#13#10+

'兴城市'+#13#10+

'兴化市'+#13#10+

'邢台市'+#13#10+

'兴仁市'+#13#10+

'兴宁市'+#13#10+

'兴平市'+#13#10+

'新乡市'+#13#10+

'新市区'+#13#10+

'新泰市'+#13#10+

'信阳市'+#13#10+

'信宜市'+#13#10+

'新沂市'+#13#10+

'新余市'+#13#10+

'新郑市'+#13#10+

'宣城市'+#13#10+

'宣威市'+#13#10+

'徐州市'+#13#10+

'许昌市'+#13#10+

'安阳市'+#13#10+

'宿迁市'+#13#10+

'兴义市'+#13#10+

'宿州市'+#13#10+

'洪湖市'+#13#10+

'洪江市'+#13#10+

'大安市'+#13#10+

'侯马市'+#13#10+

'衡水市'+#13#10+

'黑河市'+#13#10+

'衡阳市'+#13#10+

'怀化市'+#13#10+

'达州市'+#13#10+

'化州市'+#13#10+

'桦甸市'+#13#10+

'怀仁市'+#13#10+

'淮南市'+#13#10+

'淮安市'+#13#10+

'淮北市'+#13#10+

'湖州市'+#13#10+

'虎林市'+#13#10+

'华亭市'+#13#10+

'华阴市'+#13#10+

'华蓥市'+#13#10+

'韩城市'+#13#10+

'汉川市'+#13#10+

'邯郸市'+#13#10+

'汉中市'+#13#10+

'大连市'+#13#10+

'杭州市'+#13#10+

'海林市'+#13#10+

'海伦市'+#13#10+

'海东市'+#13#10+

'海口市'+#13#10+

'海阳市'+#13#10+

'海宁市'+#13#10+

'河源市'+#13#10+

'菏泽市'+#13#10+

'河间市'+#13#10+

'河津市'+#13#10+

'鹤岗市'+#13#10+

'鹤山市'+#13#10+

'贺州市'+#13#10+

'鹤壁市'+#13#10+

'合作市'+#13#10+

'合肥市'+#13#10+

'合山市'+#13#10+

'大理市'+#13#10+

'和田市'+#13#10+

'河池市'+#13#10+

'和龙市'+#13#10+

'建瓯市'+#13#10+

'建德市'+#13#10+

'嘉兴市'+#13#10+

'监利市'+#13#10+

'简阳市'+#13#10+

'蛟河市'+#13#10+

'焦作市'+#13#10+

'胶州市'+#13#10+

'金昌市'+#13#10+

'揭阳市'+#13#10+

'介休市'+#13#10+

'界首市'+#13#10+

'江门市'+#13#10+

'慈溪市'+#13#10+

'江油市'+#13#10+

'江山市'+#13#10+

'江阴市'+#13#10+

'辉县市'+#13#10+

'珲春市'+#13#10+

'黄冈市'+#13#10+

'黄骅市'+#13#10+

'黄山市'+#13#10+

'黄石市'+#13#10+

'吉首市'+#13#10+

'吉林市'+#13#10+

'集安市'+#13#10+

'济源市'+#13#10+

'济南市'+#13#10+

'济宁市'+#13#10+

'惠州市'+#13#10+

'鸡西市'+#13#10+

'吉安市'+#13#10+

'霍州市'+#13#10+

'鄂州市'+#13#10+

'恩平市'+#13#10+

'恩施市'+#13#10+

'敦化市'+#13#10+

'敦煌市'+#13#10+

'儋州市'+#13#10+

'丹阳市'+#13#10+

'当阳市'+#13#10+

'肥城市'+#13#10+

'扶余市'+#13#10+

'佛山市'+#13#10+

'汾阳市'+#13#10+

'丰城市'+#13#10+

'丰镇市'+#13#10+

'凤城市'+#13#10+

'丹东市'+#13#10+

'定西市'+#13#10+

'定州市'+#13#10+

'德兴市'+#13#10+

'德阳市'+#13#10+

'德惠市'+#13#10+

'德州市'+#13#10+

'灯塔市'+#13#10+

'登封市'+#13#10+

'邓州市'+#13#10+

'东兴市'+#13#10+

'东阳市'+#13#10+

'东台市'+#13#10+

'东营市'+#13#10+

'都匀市'+#13#10+

'东港市'+#13#10+

'东莞市'+#13#10+

'东方市'+#13#10+

'东宁市'+#13#10+

'固原市'+#13#10+

'大同市'+#13#10+

'巩义市'+#13#10+

'根河市'+#13#10+

'大冶市'+#13#10+

'古交市'+#13#10+

'贵溪市'+#13#10+

'贵阳市'+#13#10+

'桂林市'+#13#10+

'贵港市'+#13#10+

'桂平市'+#13#10+

'大庆市'+#13#10+

'海城市'+#13#10+

'哈密市'+#13#10+

'海安市'+#13#10+

'广德市'+#13#10+

'广汉市'+#13#10+

'广安市'+#13#10+

'广水市'+#13#10+

'广元市'+#13#10+

'广州市'+#13#10+

'阜新市'+#13#10+

'阜阳市'+#13#10+

'富锦市'+#13#10+

'阜康市'+#13#10+

'福清市'+#13#10+

'福泉市'+#13#10+

'福安市'+#13#10+

'福鼎市'+#13#10+

'抚远市'+#13#10+

'抚州市'+#13#10+

'福州市'+#13#10+

'抚顺市'+#13#10+

'盖州市'+#13#10+

'高密市'+#13#10+

'高平市'+#13#10+

'高州市'+#13#10+

'个旧市'+#13#10+

'高邮市'+#13#10+

'高安市'+#13#10+

'赣州市'+#13#10+

'滦州市'+#13#10+

'罗定市'+#13#10+

'泸州市'+#13#10+

'庐山市'+#13#10+

'泸水市'+#13#10+

'潮州市'+#13#10+

'陆丰市'+#13#10+

'朝阳市'+#13#10+

'常熟市'+#13#10+

'茫崖市'+#13#10+

'巢湖市'+#13#10+

'常州市'+#13#10+

'洛阳市'+#13#10+

'麻城市'+#13#10+

'漯河市'+#13#10+

'吕梁市'+#13#10+

'六安市'+#13#10+

'成都市'+#13#10+

'柳州市'+#13#10+

'龙海市'+#13#10+

'龙井市'+#13#10+

'龙港市'+#13#10+

'灵武市'+#13#10+

'凌海市'+#13#10+

'凌源市'+#13#10+

'浏阳市'+#13#10+

'郴州市'+#13#10+

'隆昌市'+#13#10+

'陇南市'+#13#10+

'娄底市'+#13#10+

'龙南市'+#13#10+

'龙泉市'+#13#10+

'龙口市'+#13#10+

'龙岩市'+#13#10+

'茂名市'+#13#10+

'南阳市'+#13#10+

'南通市'+#13#10+

'南雄市'+#13#10+

'嫩江市'+#13#10+

'讷河市'+#13#10+

'内江市'+#13#10+

'南京市'+#13#10+

'南宫市'+#13#10+

'南宁市'+#13#10+

'南平市'+#13#10+

'昌都市'+#13#10+

'岑溪市'+#13#10+

'宁乡市'+#13#10+

'盘锦市'+#13#10+

'彭州市'+#13#10+

'盘州市'+#13#10+

'磐石市'+#13#10+

'宁德市'+#13#10+

'宁国市'+#13#10+

'宁安市'+#13#10+

'宁波市'+#13#10+

'汨罗市'+#13#10+

'孟州市'+#13#10+

'弥勒市'+#13#10+

'密山市'+#13#10+

'绵阳市'+#13#10+

'绵竹市'+#13#10+

'梅州市'+#13#10+

'眉山市'+#13#10+

'常宁市'+#13#10+

'蒙自市'+#13#10+

'常德市'+#13#10+

'昌邑市'+#13#10+

'南安市'+#13#10+

'穆棱市'+#13#10+

'那曲市'+#13#10+

'南充市'+#13#10+

'南昌市'+#13#10+

'漠河市'+#13#10+

'明光市'+#13#10+

'昌吉市'+#13#10+

'赤水市'+#13#10+

'康定市'+#13#10+

'池州市'+#13#10+

'澄江市'+#13#10+

'赤峰市'+#13#10+

'赤壁市'+#13#10+

'喀什市'+#13#10+

'开封市'+#13#10+

'开原市'+#13#10+

'开远市'+#13#10+

'凯里市'+#13#10+

'开平市'+#13#10+

'兰溪市'+#13#10+

'莱阳市'+#13#10+

'莱州市'+#13#10+

'阆中市'+#13#10+

'廊坊市'+#13#10+

'兰州市'+#13#10+

'莱西市'+#13#10+

'奎屯市'+#13#10+

'库车市'+#13#10+

'来宾市'+#13#10+

'昆明市'+#13#10+

'昆山市'+#13#10+

'昆玉市'+#13#10+

'拉萨市'+#13#10+

'锦州市'+#13#10+

'晋城市'+#13#10+

'晋江市'+#13#10+

'津市市'+#13#10+

'京山市'+#13#10+

'晋中市'+#13#10+

'晋州市'+#13#10+

'金华市'+#13#10+

'九江市'+#13#10+

'崇州市'+#13#10+

'酒泉市'+#13#10+

'句容市'+#13#10+

'荆门市'+#13#10+

'荆州市'+#13#10+

'靖江市'+#13#10+

'靖西市'+#13#10+

'楚雄市'+#13#10+

'滁州市'+#13#10+

'景洪市'+#13#10+

'崇左市'+#13#10+

'荔浦市'+#13#10+

'临沧市'+#13#10+

'溧阳市'+#13#10+

'林州市'+#13#10+

'临清市'+#13#10+

'临江市'+#13#10+

'丽水市'+#13#10+

'利川市'+#13#10+

'临汾市'+#13#10+

'临海市'+#13#10+

'聊城市'+#13#10+

'承德市'+#13#10+

'辽阳市'+#13#10+

'辽源市'+#13#10+

'连州市'+#13#10+

'林芝市'+#13#10+

'涟源市'+#13#10+

'廉江市'+#13#10+

'临湘市'+#13#10+

'雷州市'+#13#10+

'耒阳市'+#13#10+

'乐平市'+#13#10+

'乐昌市'+#13#10+

'乐陵市'+#13#10+

'临沂市'+#13#10+

'乐山市'+#13#10+

'乐清市'+#13#10+

'临夏市'+#13#10+

'醴陵市'+#13#10+

'丽江市'+#13#10+

'灵宝市'+#13#10+

'芒市';

function Check_sheng(const txt: string): Boolean;  //检测字符串是否包含省份

var

  I: Integer;

  keywordlist:tstringlist;

begin

 keywordlist:=tstringlist.Create;

 keywordlist.Text:=sheng;

 Result :=false;

for I := 0 to keywordlist.Count-1 do

begin

if pos(keywordlist.Strings[I],txt)>0 then

begin

Result :=true;

//Break;

end;

end;

end;

function Check_sheng2(const txt: string): string; 

var

  I: Integer;

  keywordlist:tstringlist;

begin

 keywordlist:=tstringlist.Create;

 keywordlist.Text:=sheng;

 Result :='不详';

for I := 0 to keywordlist.Count-1 do

begin

if pos(keywordlist.Strings[I],txt)>0 then

begin

Result :=keywordlist.Strings[I];

Break;

end;

end;

end;

function Check_shi(const txt: string): string;

var

  I: Integer;

  keywordlist:tstringlist;

begin

 keywordlist:=tstringlist.Create;

 keywordlist.Text:=shi;

 Result :='不详';

for I := 0 to keywordlist.Count-1 do

begin

if pos(keywordlist.Strings[I],txt)>0 then

begin

Result :=keywordlist.Strings[I];

Break;

end;

end;

end;