24.05.2017, 20:40
|
|
Профессионал
|
|
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
|
|
Переделал твой код.
Код:
var found: boolean;
...
UserIndex := -1;
found := false;
ResultLoginPassword:=Trim(Edit1.Text)+' '+Trim(Edit2.Text);
for i:=0 to ADODataSet1.RecordCount - 1 do
begin
if ResultLoginPassword = ADODataSet1.FieldValues['UserName']+' '+ADODataSet1.FieldValues['UserPass'] then
begin
UserIndex := i; // понятия не имею, что это и зачем оно тебе нужно, но пусть будет
found := true;
break;
end;
ADODataSet1.Next;
end;
if found then begin
Form18.Show;
Form16.Close;
end else begin
MessageBox (handle, 'Неверный логин или пароль!', 'Ошибка!', mb_ok + MB_ICONERROR);
end;
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
|