if (length(id)<>15 and length(id)<>18) then
showmessage('请输入正确的格式。') ;
exit ;

解决方案 »

  1.   

    if (length(id) <>15 or length(id) <>18) then 
    begin
    showmessage('请输入正确的格式。') ;
    exit ;
    end;
      

  2.   

    if (length(id) <>15) or )length(id) <>18) then
    begin
    showmessage('请输入正确的格式。') ;
    exit ;
    end;
      

  3.   

    if (length(id) <>15) or (length(id) <>18) then
    begin
    showmessage('请输入正确的格式。') ;
    exit ;
    end;不好意思,這次好了,呵呵
      

  4.   


    if (length(id) <>15 and length(id) <>18) then 
    begin
      MessageDlg('请输入正确的格式。',mtError,[mbok],0);
      exit ;
    end;
     
    我喜欢用MessageDlg,呵呵
      

  5.   

    if (length(id) <>15) and (length(id) <>18) then
      

  6.   


    if (length(id) <>15) and (length(id) <>18) then 
    begin
      MessageDlg('请输入正确的格式。',mtError,[mbok],0);
      exit ;
    end;
    - -!! 
      

  7.   

     
    id:=inputbox('格式要求15-18','請輸入','');
    也不錯
      

  8.   

    if (length(id) <>15) and (length(id) <>18) then 
    begin
      MessageDlg('请输入正确的格式。',mtError,[mbok],0);
      exit ;
    end;
      

  9.   

    又是男女问题吧  。。and  不是男 并且不是女。。这人虽然有 但是不多吧