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

[RoZi]

опять не получается..

[puporev]

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

функция Pos('/',х) отыскивает первое и только первое появление знака '/' в строке х. Если Вы знаете, что этот знак должен находиться на 3 и 6 местах, то зачем его искать?
Исключите из кода if Pos('/',x) then, if Pos('/',x) then, if Pos('/',x) then и задавайте переменным r,s,k нужные Вам значения.

[RoZi]

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

функция Pos('/',х) отыскивает первое и только первое появление знака '/' в строке х. Если Вы знаете, что этот знак должен находиться на 3 и 6 местах, то зачем его искать?
Исключите из кода if Pos('/',x) then, if Pos('/',x) then, if Pos('/',x) then и задавайте переменным r,s,k нужные Вам значения.

в таком случае как мне задать что именно тот или иной знак должен быть на той1 или иной позиции. Pos('/',x) - тут же мы ищем позицию / в строке x....

[puporev]

Есть строка А. Нужно проверить соответствие определенным местам определенных элементов. Пишем:
if (A[3]='/') and (A[6]='/' ) then ...

[RoZi]

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

Есть строка А. Нужно проверить соответствие определенным местам определенных элементов. Пишем:
if (A[3]='/') and (A[6]='/' ) then ...

не-а и так ошибка. Он говорит что не знает то я от него хочу ему не нравятся [] выдает ошибку Array type required.

[puporev]

Покажите, как Вы написали. Если А - тип string, A[i]-его элемент. Переменная А должна быть объявлена в разделе реременных как string.
У меня этот фрагмент нормально работает.

[RoZi]

я не могу её объявить как string, она тогда не дойдет до этого куска.. у меня сначало идет проверка на количество знаков

x:=edit1.Text ;
 p:=length(x);//здесь переменная не может быть объявлена как string
         if p=8 then

и только после этого идет проверка на 3 и 6 знака, если строка не будет =8 мне не надо делать проверку

[Stilet]

Розита, мона и я свои пять коп вставлю?

А не подойдет ли тебе такой вариант проверки:

procedure TForm1.Edit1Change(Sender: TObject);
var d:TDateTime;
begin
 ShortDateFormat:='dd/mm/yy';
 if not TryStrToDate(Edit1.Text,d) then begin
  ShortDateFormat:='dd-mm-yy';
  if not TryStrToDate(Edit1.Text,d) then begin
   ShortDateFormat:='dd.mm.yy';
   Caption:='Несовпадает'; exit;
  end;
 end;
    Caption:='Совпадает';
end;

[puporev]

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

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

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

[RoZi]

Stilet, не не хочет и так работать, он мне все остальное перекрывает и дальше не идет проверка при любом пароле выводит ошибку..