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;