[RESUELTO] Filtrar datos con caracteres especiales y Números

0005555 /FERNANDO LEONOR
0006667 % RODRIGUEZ
MONT JUANA LA PELADORA
;M FRANCISCO

Saludos.
Creo que lo que necesitas es filtrar por expresiones regulares. Nunca he utilizado base de datos DBF por lo que no estoy familiarizado con la sintaxis, pero en MySQL existe REGEXP el cual te permite especificar un patrón para una búsqueda compleja, sería cuestión de que investigues si tu motor cuenta con este tipo de busqueda.

En MySQL quedaría algo asi tu sentencia:

sql

SELECT CODE, LASTNAME, NAME, CDEPART, CODPOS FROM EMPLOYEE
WHERE CODE REGEXP "^[a-z][:.-_¿?·$%]";

Espero haberte dado una idea. 

function verificaCaracteres(const Str: string): bool;
var
  I: Integer;
begin
  result := false;
  for I := 1 to length(Str) do
  begin
    if Str[i] in ['0'..'9',':','¿','?','$','%'] then  //Agregas tantos caracteres como desees filtrar
    begin
       result := true;
       exit;
    end;
  end;
end;
 
procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  accept :=  VerificaCaracteres(IBQuery1CODE.Text) or 
             VerificaCaracteres(IBQuery1NAME.Text) or 
             VerificaCaracteres(IBQuery1LASTNAME.Text);
end;

Yo creo que es más fácil hacerlo con delphi, con una sentencia SQL lo veo complicadon, aunque no se, puede que haya una función que haga eso.

Voy a hacer unas pruebas a ver que pex

Salud OS

Yo creo que es más fácil hacerlo con delphi, con una sentencia SQL lo veo complicadon, aunque no se, puede que haya una función que haga eso.

Voy a hacer unas pruebas a ver que pex

Salud OS

Nada aún mi estimado??

Returns the start position of the first string inside the second string, relative to the beginning of the outer
string. In the second form, an offset position may be supplied so that the function will ignore any matches
occuring before the offset position and return the first match following that.

POSITION( <string> IN <string> )
POSITION( <string>, <string> [, <offset-position>] )

SELECT rdb$relation_name
FROM rdb$relations
WHERE POSITION('RDB$' IN rdb$relation_name) = 1;

/* */
position ('be', 'To be or not to be', 10)
returns 17. The first occurrence of 'be' occurs within the offset and is ignored.

No mam.....nches

No te molestes wey no lo había visto , pues sí me ha funcionado de perlas , ahora, tengo un inconveniente, como agrego los nulos?, como distingo un espacio al inicio y no en todo el string?

Saludos.

procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  accept :=  VerificaCaracteres(IBQuery1CODE.Text) or 
             VerificaCaracteres(IBQuery1NAME.Text) or 
             VerificaCaracteres(IBQuery1LASTNAME.Text) or
             Trim(IBQueryCODE.text) = '' or
             Trim(IBQueryNAME.text) = '' or
             Trim(IBQueryLASTNAME.text) = '';
end;

Pos sí, sí funciona sólo hay que cerrarlas entre comillas , gracias wey , doy como resuelto el tema.

Saludos.