Foros Club Delphi - Ver Mensaje Individual - Dejar de visualizar un registro de un DBGrid...

[enecumene] · #2 06-10-2007

a ver intenta de este modo:

Código Delphi [-]procedure Tcomponentes.Edit1Change(Sender: TObject);beginIf (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end
   else ADOTable.Filtered := False;
end;

o sino asi:

Código Delphi [-]procedure Tcomponentes.Edit1Change(Sender: TObject);
begin
If (Edit1.Text <> '') then
   begin
      ADOTable.Filtered := False;
      ADoTable.Filter := 'iupac = ''' +Edit1.Text+ '*''';
      ADOTable.Filtered := True
   end;
end;

luego me comentas

Saludos.