Fórum De que maneira a entrada pelo IMPUTQUERY pode ser Maiúscula? #183576

procedure TF_Categ.ButLocalizarClick(Sender: TObject);
var
ObjPesquisa: String;
begin
if F_Menu.CriticaEdicao(DM_Modelo.DSCategor, ´Categoria´, ´fechar´ ) then
Exit;
ObjPesquisa := DM_Modelo.TabCategorSig_Categ.Value;
if InputQuery(´Entre com a sigla da categoria´,
´Sigla´, ObjPesquisa) then
if not DM_Modelo.TabCategor.FindKey([ObjPesquisa]) then
MessageDlg(´Sigla da Categoria não encontrada.´,
mtInformation, [mbOK], 0);
end;