Fórum No value for parameter ´h´. Mas eu botei!!! #305596

t := true;
  if  edtHora.Text = ´  :  ´ then
    t := false;
  try
    if t then
      StrToTime(edtHora.Text);
  except
    messagebox(handle, ´você precisa digitar uma hora válida.´, ´´, mb_iconerror+mb_ok);
    edtHora.SetFocus;
    exit;
  end;
  qryAtualiza.SQL.Clear;
  qryAtualiza.SQL.Add(´update compromissos set´);
  qryAtualiza.SQL.Add(´hora=:h,´);
  qryAtualiza.SQL.Add(´descricao=´+QuotedStr(MeDesc.Text));
  qryAtualiza.SQL.Add(´where codcomp=´+cod);
  qryAtualiza.ParamByName(´h´).Value := null;
  if t then
    qryAtualiza.ParamByName(´h´).AsTime := StrToTime(edtHora.Text);
  messagebox(handle, pchar(qryAtualiza.SQL.Text), ´´, mb_iconinformation+mb_ok);
  qryAtualiza.ExecSQL();
  frmMain.cdsLista.Close;
  frmMain.cdsLista.Open;
  close;