Evet nasıl çözüm olduğunu bende merak ettim ve çözümü mümkünse kısaca bekliyoruz.
Ve daha çok soru ve çözüm şekillerine odaklanalım arkadaşlar, ifade tarzları sonuçta sanal ve tüm arkadaşlarımız çok şükürkü iyi niyetli ve yapıcı...
ttable nesnesinde like benzeri arama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
yazılanlardan anlasıldıgın gore uses kısmını db unitini ekleyince problem hallolmus
ama arkadasım @dtgb "kodu gondermene gerek yok sorunu hallettim" in pesine "sunu yapıp hallettim" eklese daha guzel olurdu
bu bir alıskanlık meselesi, zamanla tum uyelerimize sirayet eder insallah
ama arkadasım @dtgb "kodu gondermene gerek yok sorunu hallettim" in pesine "sunu yapıp hallettim" eklese daha guzel olurdu
bu bir alıskanlık meselesi, zamanla tum uyelerimize sirayet eder insallah
ÜŞENME,ERTELEME,VAZGEÇME
locate komutu ve filitreleme
cozumu sonunda buldum uses kısmına db yi ekledikten sonra
editin changesine
begin
if edit3.Text<>'' then
begin
dm.TBLiplikler.Locate('ip_cinsi',Edit3.Text, [loCaseInsensitive] + [loPartialKey]);
dm.TBLiplikler.Filter:='ip_cinsi Like ''%'+Edit3.Text+'%''';
dm.TBLiplikler.Filtered:=true;
end
else
begin
dm.TBLiplikler.Filtered:=false;
end;
end;
bu kodu yazıyoruz
bununla hem yazdıgımız karakterlerden icinde olanları hemde locate komutuna gore aramayı yapıyor.
editin changesine
begin
if edit3.Text<>'' then
begin
dm.TBLiplikler.Locate('ip_cinsi',Edit3.Text, [loCaseInsensitive] + [loPartialKey]);
dm.TBLiplikler.Filter:='ip_cinsi Like ''%'+Edit3.Text+'%''';
dm.TBLiplikler.Filtered:=true;
end
else
begin
dm.TBLiplikler.Filtered:=false;
end;
end;
bu kodu yazıyoruz
bununla hem yazdıgımız karakterlerden icinde olanları hemde locate komutuna gore aramayı yapıyor.