找问题

Question

在str2中如159,若必含两个数字15,则结果为真,但实际运算有问题:
//////////必有两数字
function twoStrInstr(str1:string;str2:String):boolean;
var
      j,k:integer;
       
  begin
        k:=0;
        if str1[1]=str1[2] then
        begin
        for  j:=1 to  3 do
        if str2[j]=str1[1] then
        inc(k);
        if k>=2 then
        Result:=true;
        end;
          if str1[1]<>str1[2] then
        if (pos(str1[1],str2)>0) and (pos(str1[2],str2)>0) then
        begin
        Result:=true;
        end;
  end;procedure TForm1.Button62Click(Sender: TObject);
 var
  str1,str2:string;
begin
 str1:='12';
  str2:='133';
  if  twostrInStr(str1,str2) then
    showmessage('ok');
end;

Answer 1

函数太乱，改下：
function twoStrInstr(str1:string;str2:String):boolean;
begin
    Result:=(Pos(str1[2],str2)>0) and (Pos(str1[1],str2)>0) and (Pos(str1[2],str2)>Pos(str1[1],str2));
end;

Answer 2

函数头上加一句  begin 
        Result:=false;
        k:=0; 
        if str1[1]=str1[2] then 

Answer 3

如果不需要连在一起可以这样function chk(str1,str2:string):Boolean;
var
  i,j:Integer;
begin
  j:=0;
  for i:=1 to Length(str1) do
  begin
    if (Pos(str1[i],str2)<>0) then inc(j);
  end;
  result:=(j>=2);
end;如果需要连在一起就简单，直接 pos(str1,str2)<>0 就可以。

Answer 4

  3楼代码是精简,但少考虑了一种情况,如果str1:='11',str2:='135', 则始终j>=2,结果不符合要求.