Несовпадение с датой

[RoZi]

не получается кусочек программки. должно реализовываться: Несовпадение с датой в одном из форматов: дд/мм/гг, дд-мм-гг, дд.мм.гг., программка находит только первый знак разделения т.е '/', '-'
или '.' а второй не хочет и что-то наделала что при последнем else тоде выдает ошибку.. Помогите пожалуйста.

 x:=edit1.Text ;
 p:=length(x);
        if p=8 then
            if r=Pos('/',x) then
                if (r=3) and (r=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0) else
            if s=Pos('-',x) then
                if (s=3) and (s=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0) else
            if k=Pos('.',x) then
                if (k=3) and (r=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0)
        else

   {Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);}
  if Edit1.Text=Edit2.Text
  then
    user.password:=edit1.text;
    AssignFile(Data, 'data.dat');
    reset(Data);
    Seek(Data,PosSeek);
    Write(data,user);
    CloseFile(Data);
    Messagedlg('Пароль изменен!',mtInformation,[mbOK],0);
    close
    end;
    end
 else
 Messagedlg('Пароль и подтверждение пароля не совпадают!',mtInformation,[mbOK],0);
end;
end;

[Cantana]

Сообщение от RoZi

 x:=edit1.Text ;
 p:=length(x);
        if p=8 then
            if r=Pos('/',x) then
                if (r=3) and (r=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0) else {ошибка здесь else надо убрать}
            if s=Pos('-',x) then
                if (s=3) and (s=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0) else {ошибка здесь else надо убрать}
            if k=Pos('.',x) then
                if (k=3) and (r=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0)
        else

   {Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);}
  if Edit1.Text=Edit2.Text
  then
    user.password:=edit1.text;
    AssignFile(Data, 'data.dat');
    reset(Data);
    Seek(Data,PosSeek);
    Write(data,user);
    CloseFile(Data);
    Messagedlg('Пароль изменен!',mtInformation,[mbOK],0);
    close
    end;
    end
 else {тут проверь begin end количества}
 Messagedlg('Пароль и подтверждение пароля не совпадают!',mtInformation,[mbOK],0);
end;
end;

я в коментарии добавил посмотри

[RoZi]

 x:=edit1.Text ;
 p:=length(x);
        if p=8 then
            if r=Pos('/',x) then
                if (r=3) and (r=6)then   {здесь проблема. после and не читает, читает только r=3 и перескакивает дальше}
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);  {здесь проблема не в else тут все нормально}
            if s=Pos('-',x) then
                if (s=3) and (s=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0) ;
            if k=Pos('.',x) then
                if (k=3) and (r=6)then
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);

дальше все вроде нормально во второй части просто begin удалила пока эксперементировала, вернула его обратно и все нормально.

[Cantana]

смотри тут r одновременно не можеть быт и 3 и 6 можеть там надо or ставить ?

[RoZi]

Сообщение от Cantana

смотри тут r одновременно не можеть быт и 3 и 6 можеть там надо or ставить ?

в том-то и дело что мне надо одновременно чтоб выполнялись эти условия... или это можно как-то по другому реализовать??? (Несовпадение с датой в одном из форматов: дд/мм/гг, дд-мм-гг, дд.мм.гг.)

[Cantana]

а MaskEdit попробуй
и я все же не понял как r сразу можеть быть равно 3 и 6 сразу

если ты хочеш проверить позицию / то добав еше один параметр

[Cantana]

Сообщение от RoZi

 x:=edit1.Text ;
 p:=length(x);

        if p=8 then
            r:=Pos('/',x); {здесь надо присваивать еше одному параметру позицию второй /}
        if (r=3) and (r=6)then   {здесь проблема. после and не читает, читает только r=3 и перескакивает дальше}
                Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);  {здесь проблема не в else тут все нормально}

можеть это поможет

[RoZi]

там на второй форме на кнопке ок

[Cantana]

вот исходник

[RoZi]

спс сейчас посмотрю