Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var nFiltro:Integer; begin nFiltro:=3; AdoTable1.filter:='Numero = '+ QuotedStr(IntToSTr(nFiltro)); AdoTable1.Filtered:=True; end;
procedure TForm1.Button1Click(Sender: TObject); var nFiltro:Integer; begin nFiltro:=3; AdoTable1.filter:='Numero = '+ QuotedStr(IntToSTr(nFiltro)); AdoTable1.Filtered:=True; end;