delphi 根据地址提取省份和城市

shengshi='北京市,北京市'#13#10+

'北京市,东城区'#13#10+

'北京市,西城区'#13#10+

'北京市,崇文区'#13#10+

'北京市,宣武区'#13#10+

'北京市,朝阳区'#13#10+

'北京市,丰台区'#13#10+

'北京市,石景山区'#13#10+

'北京市,海淀区'#13#10+

'北京市,门头沟区'#13#10+

'北京市,房山区'#13#10+

'北京市,通州区'#13#10+

'北京市,顺义区'#13#10+

'北京市,昌平区'#13#10+

'北京市,大兴区'#13#10+

'北京市,怀柔区'#13#10+

'北京市,平谷区'#13#10+

'北京市,密云县'#13#10+

'北京市,延庆县'#13#10+

'上海市,上海市'#13#10+

'上海市,黄浦区'#13#10+

'上海市,卢湾区'#13#10+

'上海市,徐汇区'#13#10+

'上海市,长宁区'#13#10+

'上海市,静安区'#13#10+

'上海市,普陀区'#13#10+

'上海市,虹口区'#13#10+

'上海市,杨浦区'#13#10+

'上海市,闵行区'#13#10+

'上海市,宝山区'#13#10+

'上海市,嘉定区'#13#10+

'上海市,浦东新区'#13#10+

'上海市,金山区'#13#10+

'上海市,松江区'#13#10+

'上海市,青浦区'#13#10+

'上海市,南汇区'#13#10+

'上海市,奉贤区'#13#10+

'上海市,崇明县'#13#10+

'天津市,天津市'#13#10+

'天津市,和平区'#13#10+

'天津市,河东区'#13#10+

'天津市,河西区'#13#10+

'天津市,南开区'#13#10+

'天津市,河北区'#13#10+

'天津市,红桥区'#13#10+

'天津市,塘沽区'#13#10+

'天津市,汉沽区'#13#10+

'天津市,大港区'#13#10+

'天津市,东丽区'#13#10+

'天津市,西青区'#13#10+

'天津市,津南区'#13#10+

'天津市,北辰区'#13#10+

'天津市,武清区'#13#10+

'天津市,宝坻区'#13#10+

'天津市,宁河县'#13#10+

'天津市,静海县'#13#10+

'天津市,蓟县'#13#10+

'重庆市,重庆市'#13#10+

'重庆市,万州区'#13#10+

'重庆市,涪陵区'#13#10+

'重庆市,渝中区'#13#10+

'重庆市,大渡口区'#13#10+

'重庆市,江北区'#13#10+

'重庆市,沙坪坝区'#13#10+

'重庆市,九龙坡区'#13#10+

'重庆市,南岸区'#13#10+

'重庆市,北碚区'#13#10+

'重庆市,万盛区'#13#10+

'重庆市,双桥区'#13#10+

'重庆市,渝北区'#13#10+

'重庆市,巴南区'#13#10+

'重庆市,黔江区'#13#10+

'重庆市,长寿区'#13#10+

'重庆市,綦江县'#13#10+

'重庆市,潼南县'#13#10+

'重庆市,铜梁县'#13#10+

'重庆市,大足县'#13#10+

'重庆市,荣昌县'#13#10+

'重庆市,璧山县'#13#10+

'重庆市,梁平县'#13#10+

'重庆市,城口县'#13#10+

'重庆市,丰都县'#13#10+

'重庆市,垫江县'#13#10+

'重庆市,武隆县'#13#10+

'重庆市,忠县'#13#10+

'重庆市,开县'#13#10+

'重庆市,云阳县'#13#10+

'重庆市,奉节县'#13#10+

'重庆市,巫山县'#13#10+

'重庆市,巫溪县'#13#10+

'重庆市,石柱土家族自治县'#13#10+

'重庆市,秀山土家族苗族自治县'#13#10+

'重庆市,酉阳土家族苗族自治县'#13#10+

'重庆市,彭水苗族土家族自治县'#13#10+

'重庆市,江津市'#13#10+

'重庆市,合川市'#13#10+

'重庆市,永川市'#13#10+

'重庆市,南川市'#13#10+

'河北省,石家庄市'#13#10+

'河北省,张家口市'#13#10+

'河北省,承德市'#13#10+

'河北省,秦皇岛市'#13#10+

'河北省,唐山市'#13#10+

'河北省,廊坊市'#13#10+

'河北省,保定市'#13#10+

'河北省,衡水市'#13#10+

'河北省,沧州市'#13#10+

'河北省,邢台市'#13#10+

'河北省,邯郸市'#13#10+

'山西省,太原市'#13#10+

'山西省,朔州市'#13#10+

'山西省,大同市'#13#10+

'山西省,阳泉市'#13#10+

'山西省,长治市'#13#10+

'山西省,晋城市'#13#10+

'山西省,忻州市'#13#10+

'山西省,晋中市'#13#10+

'山西省,临汾市'#13#10+

'山西省,吕梁市'#13#10+

'山西省,运城市'#13#10+

'内蒙古自治区,呼和浩特市'#13#10+

'内蒙古自治区,包头市'#13#10+

'内蒙古自治区,乌海市'#13#10+

'内蒙古自治区,赤峰市'#13#10+

'内蒙古自治区,通辽市'#13#10+

'内蒙古自治区,呼伦贝尔市'#13#10+

'内蒙古自治区,鄂尔多斯市'#13#10+

'内蒙古自治区,乌兰察布市'#13#10+

'内蒙古自治区,巴彦淖尔市'#13#10+

'内蒙古自治区,兴安盟'#13#10+

'内蒙古自治区,锡林郭勒盟'#13#10+

'内蒙古自治区,阿拉善盟'#13#10+

'辽宁省,沈阳市'#13#10+

'辽宁省,朝阳市'#13#10+

'辽宁省,阜新市'#13#10+

'辽宁省,铁岭市'#13#10+

'辽宁省,抚顺市'#13#10+

'辽宁省,本溪市'#13#10+

'辽宁省,辽阳市'#13#10+

'辽宁省,鞍山市'#13#10+

'辽宁省,丹东市'#13#10+

'辽宁省,大连市'#13#10+

'辽宁省,营口市'#13#10+

'辽宁省,盘锦市'#13#10+

'辽宁省,锦州市'#13#10+

'辽宁省,葫芦岛市'#13#10+

'吉林省,长春市'#13#10+

'吉林省,白城市'#13#10+

'吉林省,松原市'#13#10+

'吉林省,吉林市'#13#10+

'吉林省,四平市'#13#10+

'吉林省,辽源市'#13#10+

'吉林省,通化市'#13#10+

'吉林省,白山市'#13#10+

'吉林省,延边州'#13#10+

'黑龙江省,哈尔滨市'#13#10+

'黑龙江省,齐齐哈尔市'#13#10+

'黑龙江省,七台河市'#13#10+

'黑龙江省,黑河市'#13#10+

'黑龙江省,大庆市'#13#10+

'黑龙江省,鹤岗市'#13#10+

'黑龙江省,伊春市'#13#10+

'黑龙江省,佳木斯市'#13#10+

'黑龙江省,双鸭山市'#13#10+

'黑龙江省,鸡西市'#13#10+

'黑龙江省,牡丹江市'#13#10+

'黑龙江省,绥化市'#13#10+

'黑龙江省,大兴安岭地区'#13#10+

'江苏省,南京市'#13#10+

'江苏省,徐州市'#13#10+

'江苏省,连云港'#13#10+

'江苏省,宿迁市'#13#10+

'江苏省,淮安市'#13#10+

'江苏省,盐城市'#13#10+

'江苏省,扬州市'#13#10+

'江苏省,泰州市'#13#10+

'江苏省,南通市'#13#10+

'江苏省,镇江市'#13#10+

'江苏省,常州市'#13#10+

'江苏省,无锡市'#13#10+

'江苏省,苏州市'#13#10+

'浙江省,杭州市'#13#10+

'浙江省,湖州市'#13#10+

'浙江省,嘉兴市'#13#10+

'浙江省,舟山市'#13#10+

'浙江省,宁波市'#13#10+

'浙江省,绍兴市'#13#10+

'浙江省,衢州市'#13#10+

'浙江省,金华市'#13#10+

'浙江省,台州市'#13#10+

'浙江省,温州市'#13#10+

'浙江省,丽水市'#13#10+

'安徽省,合肥市'#13#10+

'安徽省,宿州市'#13#10+

'安徽省,淮北市'#13#10+

'安徽省,亳州市'#13#10+

'安徽省,阜阳市'#13#10+

'安徽省,蚌埠市'#13#10+

'安徽省,淮南市'#13#10+

'安徽省,滁州市'#13#10+

'安徽省,马鞍山市'#13#10+

'安徽省,芜湖市'#13#10+

'安徽省,铜陵市'#13#10+

'安徽省,安庆市'#13#10+

'安徽省,黄山市'#13#10+

'安徽省,六安市'#13#10+

'安徽省,巢湖市'#13#10+

'安徽省,池州市'#13#10+

'安徽省,宣城市'#13#10+

'福建省,福州市'#13#10+

'福建省,南平市'#13#10+

'福建省,莆田市'#13#10+

'福建省,三明市'#13#10+

'福建省,泉州市'#13#10+

'福建省,厦门市'#13#10+

'福建省,漳州市'#13#10+

'福建省,龙岩市'#13#10+

'福建省,宁德市'#13#10+

'江西省,南昌市'#13#10+

'江西省,九江市'#13#10+

'江西省,景德镇市'#13#10+

'江西省,鹰潭市'#13#10+

'江西省,新余市'#13#10+

'江西省,萍乡市'#13#10+

'江西省,赣州市'#13#10+

'江西省,上饶市'#13#10+

'江西省,抚州市'#13#10+

'江西省,宜春市'#13#10+

'江西省,吉安市'#13#10+

'山东省,济南市'#13#10+

'山东省,青岛市'#13#10+

'山东省,聊城市'#13#10+

'山东省,德州市'#13#10+

'山东省,东营市'#13#10+

'山东省,淄博市'#13#10+

'山东省,潍坊市'#13#10+

'山东省,烟台市'#13#10+

'山东省,威海市'#13#10+

'山东省,日照市'#13#10+

'山东省,临沂市'#13#10+

'山东省,枣庄市'#13#10+

'山东省,济宁市'#13#10+

'山东省,泰安市'#13#10+

'山东省,莱芜市'#13#10+

'山东省,滨州市'#13#10+

'山东省,菏泽市'#13#10+

'河南省,郑州市'#13#10+

'河南省,开封市'#13#10+

'河南省,三门峡市'#13#10+

'河南省,洛阳市'#13#10+

'河南省,焦作市'#13#10+

'河南省,新乡市'#13#10+

'河南省,鹤壁市'#13#10+

'河南省,安阳市'#13#10+

'河南省,濮阳市'#13#10+

'河南省,商丘市'#13#10+

'河南省,许昌市'#13#10+

'河南省,漯河市'#13#10+

'河南省,平顶山市'#13#10+

'河南省,南阳市'#13#10+

'河南省,信阳市'#13#10+

'河南省,周口市'#13#10+

'河南省,驻马店市'#13#10+

'河南省,济源市'#13#10+

'湖北省,武汉市'#13#10+

'湖北省,十堰市'#13#10+

'湖北省,襄樊市'#13#10+

'湖北省,荆门市'#13#10+

'湖北省,孝感市'#13#10+

'湖北省,仙桃市'#13#10+

'湖北省,黄冈市'#13#10+

'湖北省,鄂州市'#13#10+

'湖北省,黄石市'#13#10+

'湖北省,咸宁市'#13#10+

'湖北省,荆州市'#13#10+

'湖北省,宜昌市'#13#10+

'湖北省,随州市'#13#10+

'湖北省,襄阳市'#13#10+

'湖北省,恩施州'#13#10+

'湖南省,长沙市'#13#10+

'湖南省,张家界市'#13#10+

'湖南省,常德市'#13#10+

'湖南省,益阳市'#13#10+

'湖南省,岳阳市'#13#10+

'湖南省,株洲市'#13#10+

'湖南省,湘潭市'#13#10+

'湖南省,衡阳市'#13#10+

'湖南省,郴州市'#13#10+

'湖南省,永州市'#13#10+

'湖南省,邵阳市'#13#10+

'湖南省,怀化市'#13#10+

'湖南省,娄底市'#13#10+

'湖南省,湘西州'#13#10+

'广东省,广州市'#13#10+

'广东省,深圳市'#13#10+

'广东省,清远市'#13#10+

'广东省,韶关市'#13#10+

'广东省,河源市'#13#10+

'广东省,梅州市'#13#10+

'广东省,潮州市'#13#10+

'广东省,汕头市'#13#10+

'广东省,揭阳市'#13#10+

'广东省,汕尾市'#13#10+

'广东省,惠州市'#13#10+

'广东省,东莞市'#13#10+

'广东省,珠海市'#13#10+

'广东省,中山市'#13#10+

'广东省,江门市'#13#10+

'广东省,佛山市'#13#10+

'广东省,肇庆市'#13#10+

'广东省,云浮市'#13#10+

'广东省,阳江市'#13#10+

'广东省,茂名市'#13#10+

'广东省,湛江市'#13#10+

'广西壮族自治区,南宁市'#13#10+

'广西壮族自治区,桂林市'#13#10+

'广西壮族自治区,柳州市'#13#10+

'广西壮族自治区,梧州市'#13#10+

'广西壮族自治区,贵港市'#13#10+

'广西壮族自治区,玉林市'#13#10+

'广西壮族自治区,钦州市'#13#10+

'广西壮族自治区,北海市'#13#10+

'广西壮族自治区,防城港市'#13#10+

'广西壮族自治区,崇左市'#13#10+

'广西壮族自治区,百色市'#13#10+

'广西壮族自治区,河池市'#13#10+

'广西壮族自治区,来宾市'#13#10+

'广西壮族自治区,贺州市'#13#10+

'海南省,海口市'#13#10+

'海南省,三亚市'#13#10+

'四川省,成都市'#13#10+

'四川省,广元市'#13#10+

'四川省,绵阳市'#13#10+

'四川省,德阳市'#13#10+

'四川省,南充市'#13#10+

'四川省,广安市'#13#10+

'四川省,遂宁市'#13#10+

'四川省,内江市'#13#10+

'四川省,乐山市'#13#10+

'四川省,自贡市'#13#10+

'四川省,泸州市'#13#10+

'四川省,宜宾市'#13#10+

'四川省,攀枝花市'#13#10+

'四川省,巴中市'#13#10+

'四川省,达州市'#13#10+

'四川省,资阳市'#13#10+

'四川省,眉山市'#13#10+

'四川省,西昌市'#13#10+

'四川省,雅安市'#13#10+

'四川省,阿坝州'#13#10+

'四川省,甘孜州'#13#10+

'四川省,凉山州'#13#10+

'贵州省,贵阳市'#13#10+

'贵州省,六盘水市'#13#10+

'贵州省,遵义市'#13#10+

'贵州省,安顺市'#13#10+

'贵州省,毕节地区'#13#10+

'贵州省,铜仁地区'#13#10+

'贵州省,黔东南州'#13#10+

'贵州省,黔南州'#13#10+

'贵州省,黔西南州'#13#10+

'云南省,昆明市'#13#10+

'云南省,曲靖市'#13#10+

'云南省,玉溪市'#13#10+

'云南省,保山市'#13#10+

'云南省,昭通市'#13#10+

'云南省,丽江市'#13#10+

'云南省,思茅市'#13#10+

'云南省,临沧市'#13#10+

'云南省,德宏州'#13#10+

'云南省,怒江州'#13#10+

'云南省,迪庆州'#13#10+

'云南省,大理州'#13#10+

'云南省,楚雄州'#13#10+

'云南省,红河州'#13#10+

'云南省,普洱市'#13#10+

'云南省,文山州'#13#10+

'云南省,西双版纳州'#13#10+

'西藏自治区,拉萨市'#13#10+

'西藏自治区,那曲地区'#13#10+

'西藏自治区,昌都地区'#13#10+

'西藏自治区,林芝地区'#13#10+

'西藏自治区,山南地区'#13#10+

'西藏自治区,日喀则地区'#13#10+

'西藏自治区,阿里地区'#13#10+

'陕西省,西安市'#13#10+

'陕西省,延安市'#13#10+

'陕西省,铜川市'#13#10+

'陕西省,渭南市'#13#10+

'陕西省,咸阳市'#13#10+

'陕西省,宝鸡市'#13#10+

'陕西省,汉中市'#13#10+

'陕西省,榆林市'#13#10+

'陕西省,安康市'#13#10+

'陕西省,商洛市'#13#10+

'甘肃省,兰州市'#13#10+

'甘肃省,嘉峪关市'#13#10+

'甘肃省,白银市'#13#10+

'甘肃省,天水市'#13#10+

'甘肃省,武威市'#13#10+

'甘肃省,酒泉市'#13#10+

'甘肃省,张掖市'#13#10+

'甘肃省,庆阳市'#13#10+

'甘肃省,平凉市'#13#10+

'甘肃省,定西市'#13#10+

'甘肃省,陇南市'#13#10+

'甘肃省,临夏州'#13#10+

'甘肃省,甘南州'#13#10+

'宁夏回族自治区,西宁市'#13#10+

'宁夏回族自治区,海东地区'#13#10+

'宁夏回族自治区,海北州'#13#10+

'宁夏回族自治区,海南州'#13#10+

'宁夏回族自治区,黄南州'#13#10+

'宁夏回族自治区,果洛州'#13#10+

'宁夏回族自治区,玉树州'#13#10+

'宁夏回族自治区,海西州'#13#10+

'青海省,银川市'#13#10+

'青海省,石嘴山市'#13#10+

'青海省,吴忠市'#13#10+

'青海省,固原市'#13#10+

'青海省,中卫市'#13#10+

'新疆维吾尔族自治区,乌鲁木齐市'#13#10+

'新疆维吾尔族自治区,克拉玛依市'#13#10+

'新疆维吾尔族自治区,喀什地区'#13#10+

'新疆维吾尔族自治区,阿克苏地区'#13#10+

'新疆维吾尔族自治区,和田地区'#13#10+

'新疆维吾尔族自治区,吐鲁番地区'#13#10+

'新疆维吾尔族自治区,哈密地区'#13#10+

'新疆维吾尔族自治区,克孜勒苏柯州'#13#10+

'新疆维吾尔族自治区,博尔塔拉州'#13#10+

'新疆维吾尔族自治区,昌吉州'#13#10+

'新疆维吾尔族自治区,巴音郭楞州'#13#10+

'新疆维吾尔族自治区,伊犁州'#13#10+

'新疆维吾尔族自治区,塔城地区'#13#10+

'新疆维吾尔族自治区,阿勒泰地区'#13#10+

'新疆维吾尔族自治区,石河子市'#13#10+

'新疆维吾尔族自治区,五家渠市'#13#10+

'新疆维吾尔族自治区,图木舒克市'#13#10+

'香港,香港'#13#10+

'澳门,澳门'#13#10+

'台湾,台北市'#13#10+

'台湾,高雄市'#13#10+

'台湾,台中市'#13#10+

'台湾,花莲市'#13#10+

'台湾,基隆市'#13#10+

'台湾,嘉义市'#13#10+

'台湾,金门市'#13#10+

'台湾,连江市'#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 Get_sheng(const txt: string): string;

var

  I: Integer;

  keywordlist:tstringlist;

begin

 keywordlist:=tstringlist.Create;

 keywordlist.Text:=shengshi;

 Result :='';

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

begin

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

begin

Result :=keywordlist.Strings[I].Split([','])[0];

Break;

end;

end;

end;

function Get_shi(const txt: string): string;

var

  I: Integer;

  keywordlist:tstringlist;

begin

 keywordlist:=tstringlist.Create;

 keywordlist.Text:=shengshi;

 Result :='';

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

begin

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

begin

Result :=keywordlist.Strings[I].Split([','])[1];

Break;

end;

end;

end;