Edit1 de hata !!!

[ozcank]

Arkadaşlar benim sorunum şu edit1 alanım var ve burda Kod sorguluyorum;

OnChange kısmına yazdığım kod;

Table1.Filtered:=False;
Table1.FilterOptions:=[FoCaseInsensitive];
Table1.Filter:='[FIRMAKOD]='+Edit1.Text;
Table1.Filtered:=True;

programı çalıştırdığım zaman kod yazdığımda kod a göre filter yapıp listeliyor. Edit1 alanında yazdığım kodu geri silme tuşu ile silince şu hatayı alıyorum

"Expression expected but nothing found" bunu nasıl çözebilirim?

[m_ekici]

Edit1 de hiçbirşey kalmadığında veriyordur hatayı.

Kod: Tümünü seç

if Edit1.Text='' Then Table1.Filtered:=False else
   begin
   Table1.Filtered:=False; 
   Table1.FilterOptions:=[FoCaseInsensitive]; 
   Table1.Filter:='[FIRMAKOD]='+Edit1.Text; 
   Table1.Filtered:=True; 
   end;

[ozcank]

tşk. bu şekilde sorunum cözüldü.