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!