Модератор: Модераторы
alex208210 писал(а):используй цикл for и переменные a,b.
serg_iv писал(а):можно только переменными x, y
Что за сексизм? Вы в курсе, что в евросоюзе уже 6 полов? И не в кое случае нельзя пользоваться переменными черного цвета, это может быть расценено, как дискриманация по рассовому признаку.
jenny писал(а):вот код который я написала, все хорошо функционирует. Да вот только мне бы хотелось чтобы блокировка действовала только на одного пользователя, а тут получается если я каждый раз ввожу разных пользователей с неверным паролем на 3 раз все равно включается блокировка. Вот я и подумала что нужен массив который сохраняет одного определенного пользователя при введении не верного пароля.
Код: Выделить всё
a: array[1..100,1..2] of string;
b:integer;
b:=0;
if (username=trim(edit1.Text)) and (pass=trim(maskedit1.Text)) then
begin
b:=0;
for i:=1 to 100 do begin a[i,1]:=''; a[i,2]:=''; end;
Form2.Visible := False;
Form2.ShowModal;
end
else
begin
for i:=1 to b do
begin {putin_mode}
if a[i,1]=edit1.Text then
begin
loginfailed:= strtoint(a[i,2]) +1;
a[i,2]:=inttostr(loginfailed);
showmessage('авторизация не удалась');
if strtoint(a[i,2])>=3 then begin a[i,2]:='1'; form2.Close; end;
exit;
end;
end;
b:=b+1;
a[b,1]:=edit1.Text;
a[b,2]:='1';
showmessage('авторизация не удалась');
end;
когда можно просто трижды вызвать запрос и проверять в начале количество блокировок?Лекс Айрин писал(а):alex208210, меня бы за такой код учительница по программированию повесила бы )))
Зачем трижды запрашивать авторизацию в цикле? когда можно просто трижды вызвать запрос и проверять в начале количество блокировок?
примерный алгоритм.
Проверить нет ли у пользователя блокировок.
Если да, то проверить как давно был последний заход.(если давно, то сбросить и продолжить если таймаут не проходит --> выход)
пароль верен?
Если да, то вход, сброс блокировок.
Если нет, то увеличиваем количество блокировок на 1.
И все же я настаиваю, что for в этом случае неприемлем. Пользователь может быть и первым в массиве.
но на if a[i,2]>=3 у меня еrror -> Error: Incompatible types: got "ShortInt" expected "AnsiString". Вроде не должно тут быть ошибки...
jenny писал(а):уже пыталась, не идет....
Добавлено спустя 1 минуту 56 секунд:
все пошло, но блокировка не происходит