Edit1.Text onchange moduna yazdığım filtreleme de hata

[Delphi08]

Edit1.Text onchange moduna aşağıdaki kodu yazıyorum..

procedure TDepoStokForm.Edit1Change(Sender: TObject);
begin

try
DataModule1.StokT1.Filter:='KOD like '+QuotedStr(Edit1.Text+'*');
except

end;
end;

Ancak Edit1.Text,te yazdığımı silince tüm bilgi karşıma gelmediği gibi birde "Güncelleştirme veya yenileme için temel tablo bilgileri yetersiz" deyip yazdığım bilgileri içeren kayıtta kalıyor,tüm kayıtlar Edit1.Text boş iken gelmiyor.

[vedatkaba]

Kod: Tümünü seç

Table1.Filter := 'Tarih= ' + QuotedStr(Edit1.Text);
           Table1.Filtered :=True

Like kullanmana gerek yok sanırım bu şekilde dene

kolay gelsin

[freeman35]

Kod yazarken Code tag ını kullanın BOLD değil

Kod: Tümünü seç

try
if Trim(Edit1.Text)<>''then begin
DataModule1.StokT1.Filter:='KOD like '+QuotedStr(Edit1.Text+'*');
DataModule1.StokT1.Filtered := True;
end else begin
 DataModule1.StokT1.Filtered := False;
end;
except
end;
end; 

Kolay gele

[Delphi08]

Çok teşekkür ederim.Hepiniz sağolun...