delphi 字符串查找或者匹配的问题？

Question

想在一个字符串中找到一个国家的名字，怎么做呢？
比如：这个国家的风景很美丽，它是中国。找到中国；
再比如：这次比赛乌拉圭国家队表现的很棒！。找到乌拉圭；
国家名称的位置不确定，理论支持地球上所有国家，谢谢老师！

Answer 1

 Arr : array[0..4] of WideString =( WideString('中国'), WideString('乌拉圭'), WideString('日本'), WideString('美国'), WideString('法国')); for i:=Low(Arr) to High(Arr) do   begin     if pos(Arr[i] ,WideString('这个国家的风景很美丽，它是中国'))>0 then         begin            //找到         end;   end;