Código Delphi [-] ... var DS: TDataSet; begin DS := DataSource1.DataSet; if not DS.Active then DS.Open; (* Esta línea es innecesaria si el DataSet está activo *) DS.Filtered := False; DS.Filter := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%'); DS.Filtered := True; end;
... var DS: TDataSet; begin DS := DataSource1.DataSet; if not DS.Active then DS.Open; (* Esta línea es innecesaria si el DataSet está activo *) DS.Filtered := False; DS.Filter := 'NOMBRE LIKE ' + QuotedStr(Edit1.Text + '%'); DS.Filtered := True; end;