Delphi 7 adres defteri içinde arama

[gulhan21]

merhabalar delphide yeniyim delphi 7 kullanmıstım daha önce şimdi küçük bir program yazıyorum
takıldım yardımlarınızı bekliyorum

dbase for windows database kullanılmıs
filitreleme tarzı bir kod edit te girilen karekter sayıs kadar table de aramasını yapan koda ihtiyacım var.

örnek
edit.text='asa';
table 1 datamızda da
isim
Kagıt
masa
kasa
makas
yasa

sonuc
masa
kasa
yasa



program kodu
edit1.text:='ASA';
if table1.active=false then table1.open;
TABLE1.First;
While not Table1.Eof do begin
...
...
.....
// if pos(edit1.text,table1isim.text) <> 0 then


end;


tesekkürler

[AfterPost]

if Edit1.Text<>'' then
begin
tblalis.Filter := 'BELGENO like ' + QuotedStr('*'+Edit1.Text+'*');
tblalis.Filtered := true;
end
else
tblalis.Filtered :=false; // bu kod hem baştan hem sondan filtreleme yapar
-----------------------
if Edit1.Text<>'' then
begin
tblalis.Filter := 'BELGENO like ' + QuotedStr(Edit1.Text+'*');
tblalis.Filtered := true;
end
else
tblalis.Filtered :=false; // bu ise sadece baştan

[gulhan21]

biraz daha açarmısın konuyu usese hangi uniyi ekliyeceğim
tblalis.Filter := bende çalışmıyor

[AfterPost]

ne hatası veriyor sizde yazar mısınız? veritabanı olarak ne kullanıyorsunuz ? tablo yapınız nedir?
unit eklemek söz konusu değil biz bir yerden unit çağırmıyoruz çünkü.

[gulhan21]

hata şu verilen kodu uyarladığıda tblalis (Undeclared identifier: 'tblalis') hatası alıyorum
sql kullanmadım
yukardada belirttim
tablex olarak çağırıyorum

şuan kullandığım kod çalışıyor yanlız 100 bin data arasında arama yapmak zaman alıyor bunu stabil hale getirmek istiyorum



While not Table2.Eof do begin

if pos(uppercase(edit9.text),uppercase(table2isim.value)) <> 0 then
begin

SA10:=SA10+1;
StringGrid2.Cells[0,SA10]:=TABLE2ISIM.Value;
StringGrid2.Cells[1,SA10]:=FLOATTOSTR(TABLE2TEL.VALUE);
StringGrid2.Cells[2,SA10]:=FLOATTOSTR(TABLE2TEL1.VALUE);
.....
.......
end;
table2.next;

[AfterPost]

sende bu hatayı vermesi çok normal çünkü sen de tblalis diye bir tablo ismi yok, tblalis yazmayacaksın kendi tablo adın neyse onu yazacaksın . Bölye döngü açarak arama yapmak yerine verdiğim kodu kullan.