Fórum Input query.... erro de access violation at adress #252396

Colega,

Poste aqui um trecho do código em que é feita a chamada à esta InputQuery para que possamos tentar lhe ajudar.

:idea: Dica : utilize as tags BBCode => para facilitar a leitura...

T+

3:begin
dbgrid1.DataSource := Nil;
StrDetalhe:= ´0´;
if InputQuery(application.Title, ´Informe o Número do Detalhe:´, StrDetalhe) then
begin
NumDetalhe := StrToInt(StrDetalhe);
QryExpecifico.Close;
QryExpecifico.DataSet.ParamByName(´wContrato´).AsInteger := xxxxxx;
QryExpecifico.DataSet.ParamByName(´wConta´).AsInteger := xxxxxx;
QryExpecifico.DataSet.ParamByName(´wRemessa´).AsInteger := StrToInt(Edit1.Text);
QryExpecifico.DataSet.ParamByName(´wNumDetalhe´).AsInteger := NumDetalhe;
QryExpecifico.DataSet.Open;
dsMostraItens.DataSet := QryExpecifico;
dbgrid1.DataSource := dsMostraItens;
DBNavigator1.DataSource := dsMostraItens;
StrDetalhe := ´O número ´+ IntToStr(NumDetalhe)+´, não é válido.´;
if QryExpecifico.IsEmpty Then
Application.MessageBox(PChar(StrDetalhe), PChar(Application.Title), mb_IconWarning +mb_OK);
MostraItens.ItemIndex := 0;
end; // fecha if Input Query
end;
end; // case
DBGrid1CellClick(DBGrid1.Columns[0]);

Colega,

Algumas variáveis e propriedades só estão recebendo o valor se o Input for confirmado...
Se antes do Input elas possuirem valor nulo ou não possuirem nenhum valor e não houver confirmação, uma tentativa de acesso à elas após este case pode ser a causa de seu A.V...
Sugiro que verifique se o código após este case está tentando manipular e/ou acessar algum valor de variável ou propriedade que não foi inicializada antes do Input...

T+