循环问题

Question

我想调用function SameName(N1, N2:string) : Boolean中,多个N2和N1对比,只要有一个是相同的,那么就返回一个TRUE,应该怎么弄呢?最好能提供下简单代码

Answer 1

function SameName(N1, N2:string) : Boolean
var
    i:integer;
begin
    Result:=false;
    for i:=1 to Length(N1) do
        if Pos(N1[i],N2)>0 then
        begin
           Result:=true;
           break;
        end;
end;

Answer 2

function SameName(N1:string; N2:array of string) : Boolean;
var
  i:integer;
begin
  Result:=False;
  for i := Low(N2) to High(N2) do
  begin
    Result:= N1=N2[i];
    if Result then Break;
  end;
end;//调用
if SameName('999',['123','222','333','999']) then  ShowMessage('Good');

Answer 3

何为多个N1和N2对比呢？
是值N1中某一个字符和N2中某一字符相同吗？