Estimados, esto si que es extraño y por mas vueltas que le doy no logro entender, les explico:
Tengo una base de datos (Delphi 2010, MySQL, Zeos 7.0.0) en la cual guardo un registro denominado RUT (Rol Unico Tributario, Chile), para poder filtrar tengo un ComboBox en le cual uno elije el criterio por el cual filtrar:
Código Delphi
[-]procedure TCLIENTES.Edit1Change(Sender: TObject);
Var
Valor,Valor1 : String;
begin
if Edit1.text = '' then
begin
TABLAS.TCLIENTES.Filtered := false;
exit;
end;
TABLAS.TCLIENTES.Locate(ComboBox1.Text, Edit1.Text,[loPartialKey,loCaseInsensitive]);
valor := Edit1.Text;
Valor1 := Valor;
inc(valor1[length(Valor1)]);
TABLAS.TCLIENTES.Filter := ''+ComboBox1.Text+' >= '+QuotedStr(Valor)+ ' and '+ComboBox1.Text+' < ' +QuotedStr(valor1);
TABLAS.TCLIENTES.Filtered := true;
end;
end.
Funciona de Maravillas!!! pero... NO FILTRA NINGUN REGISTRO QUE COMIENZE CON 9!!! si me pudieran ayudar estaria bastante agradesido, ya que es lo que me falta para terminar este modulo, de antemano gracias.