Filtrando un DBGrid con ADOTable

[eddg]

este es el código que tengo:

Código Delphi [-]
procedure Tcomponentes.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      If RadioButton1.Checked = True then Filtro := 'NOMBRE_IUPAC Like ''' +Edit1.Text+ '*'''
         else If RadioButton2.Checked = True then Filtro := 'FORMULA_MOLECULAR Like '''  +Edit1.Text+   '*''';
      ADOTable.Filter := Filtro;
      ADOTable.Filtered := True;
   end
   else ADOTable.Filtered := False;
end;

No se donde dices tu que coloque ese ASTERISCO...

Por favor dime como lo solucionarias?

Atentamente EDDG, gracias de antemano!

[[Caral]]

Hola
No estoy muy seguro pero interpretando lo que menciona Lepe siria algo asi:

Código Delphi [-]
 If RadioButton1.Checked = True then Filtro := 'NOMBRE_IUPAC Like ''''*' +Edit1.Text+ '*'''''
         else If RadioButton2.Checked = True then Filtro := 'FORMULA_MOLECULAR Like ''''*'  +Edit1.Text+   '*''''';

La idea del asterisco que tienes actualmente es decirle al filtro que traiga todo lo que sigue al edit:

Código Delphi [-]
Like '''  +Edit1.Text+   '*'''

La idea de Lepe seria todo lo anterior y lo posterior.
saludos

[eddg]

observen el adjunto que dejo ENECUMENE en el post #7, alli esta mas ilustrado el problemita!

él lo hizo excelente, sin embargo lo necesito mas refinado, tal como lo explique!

Les pido un favor de revisar ese codigo, ya que hice lo q caral dijo pero me arroja un error! Observenlo y comenten

SAlud y éxitos!

[[Caral]]

Hola
Como indique anteriormente, el uso de * en el edit hace lo que mencionaba Lepe.
Usando la logica de programacion y como soy un Novato lo tengo que hacer.
Se puede ver que lo que pretendes es hacer un filtro que sea mas profundo o que traiga pranticamente todas las semejanzas.
Bueno aqui lo tienes, espero que esto si sea lo que necesitas.
Saludos

[[Lepe]]

Ya veo que Caral ha contestado antes. Solo un detalle, dejad de usar las comillas simples que eso marea mucho

Código Delphi [-]
var campo :string;

   ADOTable.Filtered := False;
   If RadioButton1.Checked = True then Campo := 'NombreCliente Like '
   else If RadioButton2.Checked = True then Campo:= 'Telefono Like ' 
   ADOTable.Filter := Campo + QuotedStr('*' + Edit1.text + '*');
   ADOTable.Filtered := True;

Aunque tal y como dije en un mensaje anterior, creo que "Like" y "Filter" son incompatibles, si eso da error tendrás que usar un TADOQuery.

Saludos

[[Caral]]

Hola
Impresionante, muy inteligente solucion.
Saludos

[eddg]

Excelente AYuda señores, ahora sí funciona correctamente.

Un millón de Gracias....