Fórum Not Convert type(Array Byte) into type(double) #375816

procedure TFrmLogin.edtSenhaExit(Sender: TObject);
var cmdSQL, cTexto : string;
begin
  cTexto := ´Decodificando senha´;
  cmdSQL:= ´Select decode(senha,´+#39+´qwerty´+39+´) senha from sm1010 where username = ´+39+edtUsuario.Text+39;
  FrmMaster.GravaCmdSQL(cmdSQL, cTexto);
  with cdsPesquisa do
    begin
      Close;
      CommandText := cmdSQL;
      Execute;
      Open;
      First;

     if VarIsNull(Fields[0].value) then
        begin
          lblMensagem.Caption := ´Senha invalida!´;
          edtSenha.SetFocus;
        end
      else
        begin
          [b]if Fields[0].Value = edtSenha.Text then[/b]
            begin
              btnok.Enabled := True;
              _SenhaOK := True;
            end
          else
            lblMensagem.Caption :=´Senha invalida!´;
        end;
    end;
end;