功能：查找两个字符串有没有相同的部分

function SearchInStrings(const Str1,Str2 : string) : Boolean;
{ ----功能：查找两个字符串有没有相同的部分----- }
var
  S1,S2 : string;
  I : integer;
  Found : boolean;
begin
  S1 := Str1;
  S2 := Str2;
  Found := false;
  for I := 1 to Length(S1) do  //先找到第一个相同的字符
    if (Pos(S1[I], S2)>0) then
       begin
       Found := true;
       Break;
       end;
  if Found then
     begin
     S2 := Copy(S2, Pos(S1[I],S2), MaxInt);
     S1 := Copy(S1, I, MaxInt);
     for I := 1 to Math.Min(Length(S1),Length(S2)) do
         if (S1[I] <> S2[I]) then break;
     result := True;//Copy(S1, 1, I-1);//相同的内容
     end else Result:=False;// := '没找到任何相同的内容';
end;