| Tablonuzda bulunan tüm kayitlar degilde belirli özelligi
olan kayitlari görmek istiyorsaniz kullanacaginiz yöntem
FILTRELEME yöntemi olacaktir. |
PROPERTIES |
| 1)Table1.Filteroptions : Filtreleme isleminde
küçük - büyük duyarligininin olup olmayacagini
göre filtreleme yapmamizi saglar. |
Filteroptions |
Sonuc |
| focaseinsesitive |
Harf duyarliligi yoktur |
| fonopartialcompare |
Alan parçasina göre filtreleme yapar. |
|
2)Table1.Filtered: Belirlenen kriterin tabloya
uygulanip uygulanmayacagini belirleyen özelliktir.True degerinin
aktarilmasi Filtreleme islemini baslatir.
False aktarilirsa tablodaki tüm kayitlarin tekrar listelenmesini
saglayacaktir.(Filtre IPTAL) |
3)Table1.Filter: Tabloya uygulanacak olan kriteri
bu özellikle belirlenir.
ÖRNEK:
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.FilterOptions:=[ofCaseinsensitive];
//harf duyarliligi yok
Table1.Filter:='DOSYANO='+edit1.text; //Dosya
No Arama kriteri
Table1.Filtered:=true; // Aramayi Baslat
end; |
|
|
|
| *** Otomatik Arama: Simdi uygulayacagimiz adim
"Edit" kontrolüne bilgi girildikten
sonra otomatik olarak filtreleme yapmasi. |
procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.FilterOptions:=[foCaseInsensitive];
//harf duyarliligi yok
Table1.Filter:='Adi='+QuotedStr(edit1.text+'*');
//Ada Göre Arama kriteri
Table1.Filtered:=true; // Aramayi Baslat
end;
|
|
NOT: QuotedStr bu komutu yanliz
string bilgiler için kullaniriz bunun
görevi string'in basina tirnak koyar. Örnegin
editdeki yavuz yazisini 'yavuz'
olarak kullanir.
'*' bunu kunlanma sebebimiz bir harfe
basildiginda o harften sonra baslayan kayitleri getirir yoksa
yazdigimiz kaydi arar. |
|
| |
|
