FilterOptions not supported Hatası

[cevizsandigi]

merhaba arkadaşlar

filtreleme yapmaya çalışıyorum lakin dün gece çalışan kodları şimdi çalıştıramıyorum
konrol amaçlı edit1 in OnDhence olayına yazdım ama yine bu hatayı verdi

 
 
procedure TForm2.Edit3Change(Sender: TObject);
var
u:integer;
ad:string;
begin
u:=length(edit3.Text);
ad:=edit3.text;
if u >= 2 then
begin
TumListeTable1.filtered := false; 
TumListeTable1.FilterOptions := [foCaseInsensitive];
TumListeTable1.Filter := 'Adi='+ QuotedStr(ad);
TumListeTable1.Filtered := true;
end;
end;

bir mantık hatasımı yapıyorum ... yardım ederseniz sevinirim! teşekküler

[Caylaq]

http://forum.ceviz.net/search.php






.

[hasanramazan]

dene amacli baktim kodda sorun yapan yer yok

procedure TForm1.Edit3Change(Sender: TObject);
var
u:integer;
ad:string;
begin
u:=length(edit3.Text);
ad:=edit3.text;
if u >= 2 then
begin
Table1.filtered := false;
Table1.FilterOptions := [foCaseInsensitive];
Table1.Filter := 'Adi='+ QuotedStr(ad);
Table1.Filtered := true;