Código Delphi [-] procedure Tregistro.BitBtn8Click(Sender: TObject); begin with ADOTable1 do begin Filtered:= False; Filter := 'NAME LIKE ' + QuotedStr(Edit1.Text + '%'); Filtered:= True; end; end;
procedure Tregistro.BitBtn8Click(Sender: TObject); begin with ADOTable1 do begin Filtered:= False; Filter := 'NAME LIKE ' + QuotedStr(Edit1.Text + '%'); Filtered:= True; end; end;