Para pasar el texto de los MaskEdit
como filtro al DataSet
, para obtener todos los registros que tengan el campo Fecha
dentro del rango de fechas, puedes construir una cadena para incluir todas las fechas que sean mayores o iguales al texto de MaskEdit1
y que sean menores o iguales al texto de MaskEdit2
.
Al final, el valor de la propiedad Filter
tiene que ser algo parecido a esto:
(Fecha >= '01/01/2019') and (Fecha <= '31/12/2019')
Como puedes observar, las fechas se pasan como cadenas de caracteres, incluyendo los '
que las encierran, dentro del texto de la propiedad, que es un string
.
Para construir esta cadena, puedes valerte de las funciones Format()
y QuotedStr()
, de la unidad strUtils
.
El código quedaría algo como esto:
begin
DataSource.DataSet.Filter := '';
if (MaskEdit1.Text <> ' / / ') and (MaskEdit2.Text <> ' / / ') then
begin
DataSource.DataSet.Filter := Format('(Fecha >= %s) and (Fecha <= %s)', [QuotedStr(MaskEdit1.Text), QuotedStr(MaskEdit2.Text)])
DataSource.DataSet.Filtered := True;
end;
end;
He puesto la comparación de los MaskEdit
con cadenas ' / / '
y no con cadenas vacías ''
, porque recuerdo que así funciona ese componente, que yo hace mucho que no uso. Si eso no es correcto, te queda a ti adaptar el código.
Dicho todo esto, realmente sugiero no utilizar componentes de tipo MaskEdit para pedir las fechas al usuario. En principio, puede parecer conveniente, pero a medida que la audiencia de tu aplicación crece, vas a encontrarte con personas que manejan la fecha en diferentes formatos, dd/mm/aaaa
en América Latina, mm/dd/yyyy
en Estados Unidos, dd.mm.yyyy
en Alemania, por poner unos pocos ejemplos.
Es mejor utilizar un DateTimePicker
u otro componente especializado en manejar fechas, que de fábrica utilizará el formato de fecha configurado en el Windows del usuario, y utilizar variables de tipo TDateTime
en tu lógica interna.
En el filtro, al final de cuentas, la fecha siempre se pasa como una cadena, con el formato de fecha default del programa, si utilizaras DateTimePicker, el código podría lucir como:
DataSource.DataSet.Filter := Format('(Fecha >= %s) and (Fecha <= %s)', [QuotedStr(DateToString(DateTimePicker1.Date)), QuotedStr(DateToString(DateTimePicker2.Date))])
MaskEdit
son componentes de tipo TMaskEdit? ¿cuál es el criterio que debe cumplir el registro que buscas con respecto de los valores ingresados en losMaskEdit
? ¿Cuál es la estructura de tu DataSet?