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

[RoZi]

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

p - это длина строки типа integer, но x - это строка типа string.
Поэтому нужно писать

если он находит эти знаки, то как-то странно зависает, вернее ничего не зависает а никак не реагирует...

[Slava]

Можно сделать вот так:

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

{Messagedlg('Пароль не верный!',mtInformation,[mbOK],0);}

[RoZi]

procedure TForm2.Button1Click(Sender: TObject);
var
x: string;
p: integer;
begin
 AssignFile(Data, 'data.dat');
    reset(Data);
    Seek(Data,PosSeek);
    read(data,user);
    If user.ogran then

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

        else
      if Edit1.Text=Edit2.Text
      then begin
    user.password:=edit1.text;
    AssignFile(Data, 'data.dat');
    reset(Data);
    Seek(Data,PosSeek);
    Write(data,user);
    CloseFile(Data);
    Messagedlg('Пароль изменен!',mtInformation,[mbOK],0);
    close
  end

 else
 Messagedlg('Пароль и подтверждение пароля не совпадает!',mtInformation,[mbOK],0);
end;

так почему же у меня пароль все-равно меняется??? я ввоже сразу пароль в edit1 и в edit2, и если пароль в edit1 соответствует формату даты то он все равно его меняет..... не выдает ошибку, что пароль не верный...

[puporev]

Если формат дд/мм/гг, дд-мм-гг, дд.мм.гг. правильный, то сообщение об ошибке должно выдавать, когда введен неправильный формат, т.е. писать нужно:

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

Messagedlg('Пароль  верный!',mtInformation,[mbOK],0);

Обрати внимание на последнюю строчку, а то у тебя и так пароль не верный и иначе тоже пароль не верный.

[Cantana]

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

так почему же у меня пароль все-равно меняется??? я ввоже сразу пароль в edit1 и в edit2, и если пароль в edit1 соответствует формату даты то он все равно его меняет..... не выдает ошибку, что пароль не верный...

провер if then что-то они у тебя не совсем понятно исползивана, можеть попроши надо

[RoZi]

я это уже убрала давно там осталось то что я выше выложила кусочек кода

[RoZi]

Всем большое спасибо за помощь
Но отдельное огромное спасибо Cantana, за его усердие