filtrar por longitud de campo

[Vlady]

Hola amigos del club delphi quisiera saber sis es posible filtrar en un clientdataset por la longitud de un campo tal vez utilizando un la funcion length. Yo utilizo la funcion char_length al realizar la consulta SQL pero para filter no me funciona, que otra opción puede existir?

[Casimiro Notevi]

¿Puedes poner el fuente?

[Vlady]

Código Delphi [-]
    CDSBTabla.Filter := 'length(CUENTA) <=  '  + intTostr(Edi1.Text);
    CDSBTabla.Filtered := True;

Esto es lo que tengo pero no me funciona donde edit1.Text es un entero

[[oscarac]]

estas usando un numero (LENGTH) con un caracter inttoSTR()
cuidado con eso
osea...

3 = '3'

[roman]

Pues no, de hecho es correcto su uso de IntToStr, ya que la cadena resultante sería:

Código Delphi [-]
DSBTabla.Filter := 'length(CUENTA) <=  ' + '3';

o sea

Código Delphi [-]
DSBTabla.Filter := 'length(CUENTA) <=  3';

En caso de que no se pueda usar una función en la expresión del Filter siempre queda la posibilidad de usar el evento OnFilterRecord del dataset en el que puede ponerse casi cualquier condición de filtrado.

// Saludos

[ecfisa]

Hola Vlady.

Hacer esa comparación desde la propiedad Filter no lo veo viable, pero sí desde el evento OnFilterRecord:

Código Delphi [-]
procedure TForm1.CDSBTablaFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
  N: Integer;
begin
  if TryStrToInt(Edit1.Text, N) then
    Accept:= Length(CDSBTabla.FieldByName('CUENTA').AsString) <= N;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   CDSBTabla.Filtered:= False;
   CDSBTabla.Filtered:= True;
end;

Saludos.

Edito: Luego de poner el ejemplo veo que yá roman había mencionado esta posibilidad.

[Vlady]

excelente mil gracias

[[Al González]]

Comparto lo dicho por Román, y también lo dicho por ecfisa, pero sí es viable usar la propiedad Filter:

Código Delphi [-]
CDSBTabla.Filter := 'Substring (CUENTA, 1, ' + IntToStr (Edi1.Text) + ') = CUENTA';
CDSBTabla.Filtered := True;

Un filtrado abrazo.

Al González.