Pudieras Probar
Hola creo que pudieras probar en el evento on change del edit algo así
Var
Valor,Valor1 : String;
begin
valor := Edit1.text;
Valor1 := Valor;
inc(valor1[length(Valor1)]);
Tabla.Filter := 'Campo >= '+QuotedStr(Valor)+ ' and Campo < ' QuotedStr(valor1);
Tabla.Filtered := True
//Donde campo es el campo por donde vas a filtrar
//Se pone lento en dependencia de la cantidad de registros que tenga la tabla.
end;
mas o menos así
Un saludo
__________________
Lo importante no es llegar primero, sino saber llegar.
Para que puedas llegar mejor lee la Guia de Estilo
Última edición por yusnerqui fecha: 10-04-2004 a las 17:13:38.
Razón: QuotedStr
|