Fórum Query(Erro) #142674

tente isso:

ValorLogin := RetornaSenha;

function RetornaSenha:String;
begin
query1.sql.add(´select senha_users from tb_users where login_users like :parametro1´);
query1.parambyname(´parametro1´).value := QuotEdStr(´¬´+edit1.text+´¬´);
try
query1.ExecSql;
if query1.fieldByName(´senha_users´).IsNull then
Result := ´´
else
Result := query1.FieldByName(´senha_users´).Value;
except
Result := ´´;
end;

end;