Edit ile DBGrid Filtreleme

Kod:
// Edit 'in OnChange değerine alttaki kodu yazın.
procedure TForm2.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then form1.table1.Filter:='' else
form1.table1.Filter:='[Adi]='+#39+edit1.text+'*'+#39; // Burdaki [Adi] sizin tablonuzda filtrelenecek alandır.
end;

// Edit 'in OnEnter bölümüne de aşağıdaki kodu ekleyin.

procedure TForm2.Edit2Enter(Sender: TObject);
begin
Form1.Table1.Filtered:=TRUE;
end;

// Umarım yardımcı olur.

// Herkese iyi çalışmalar...