tengo este procedimiento para hacer login en mi tabla usuarios(campos nombre_usuario, passwd)
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
var usuario, password, u2, p2 : string;
begin
repeat
usuario := InputBox('Login','Ingrese su nombre de usuario:','');
password := InputBox('Login','Ingrese su contraseña:','');
ds_login.DataSet.Locate('nombre_usuario',usuario,[]);
u2 := ds_login.DataSet.FieldByName('nombre_usuario').AsString;
p2 := ds_login.DataSet.FieldByName('passwd').AsString;
if (usuario <> u2) or (password <> p2) then
MessageDlg('Su nombre de usuario o contraseña son incorrectos',mtError, [mbok], 0);
until (usuario = u2) and (password = p2)
form1.Show;
end;
he probado varias formas de hacer lo mismo, y puse un par de showmessages y encontre que el error es que la comparacion nunca acepta los valores como iguales, aunque si lo sean.