Programa Arama Yaptırmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ajann
Üye
Mesajlar: 39
Kayıt: 15 Haz 2005 11:50

Programa Arama Yaptırmak

Mesaj gönderen ajann »

S.a
Kardeşler bir Program hazırlıyorumda,içerisinde arama yaptırmak istiyorum.Mantığını bi anlatayim önce size;
Örneğin 10 tane groupbox war zaten bütün aramaları bu groupboxlara göre yapacağım.
Şöyleki;
Bi editbox arama için birde buton olacak.
Editboxa örneğin;
Bir takım Anahtar kelimeler girildiğini varsayalım mesela;
Ali Veli Deli gibi.
Ben Ali diye arayınca içinde Ali kelimesi geçen bir GroupBox aktif olacak yani öne çıkacak birbirlerinin altına gizledimya groupboxları zaten visible false hepsi menüdeki butonlara tıklayınca birbirlerini disable ettirip seçileni öne çıkarıyorum neyse o değil sorun.
Bu şekilde işte yazıcam örneğin= Anahtarkelimeler=Ali,Veli,Deli gibi basit bir kod lazım.
Yardımcı olursanız memnun kalırım..
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

kolay gelsin benim bildiğim groupbox bir çeşit panel yani sen 10 tane groupbox içerisinde aratacağın metinler groupbox üzerlerinde edit,label,memo,richedit gibi componentler kullanmışsındır büyük ihtimalle..arama yaptırdığın edit'in text özelliğini groupboxlarda metinleri girdiğin controllerin text özelliğiyle if...then şeklinde karşılaştır..
ajann
Üye
Mesajlar: 39
Kayıt: 15 Haz 2005 11:50

Mesaj gönderen ajann »

Bişey anlamadım ama saol.
Doğru Onu söylemeyi unuttum Grouplar üzerinde Raizenin Text Componenti kullandım.
Bi örnekle yapamazmısınız :(
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

edit1 =aranılacak metnin yazıldığı editbox olsun..
rzedit1=groupbox1 üzerindeki raizenin text'i olsun
rzedit2=groupbox2 üzerindeki raizenin text'i olsun..
....
...
button1=arama yaptırdığın button olsun,
if edit1.text=rzedit1.text then begin
groupbox1.visible:=true;\\groupbox1 görünür olsun.
\\varsa diğer kodlar
end;
if edit1.text=rzedit2.text then begin
groupbox2.visible:=true;\\groupbox2 görünür olsun.
\\varsa diğer kodlar
end;
ajann
Üye
Mesajlar: 39
Kayıt: 15 Haz 2005 11:50

Mesaj gönderen ajann »

Eywallah kardeş ufak bi deneme yaptım oldu geliştirmeye çalışayim saolasın makbule geçti.
ajann
Üye
Mesajlar: 39
Kayıt: 15 Haz 2005 11:50

Mesaj gönderen ajann »

Kod: Tümünü seç

if edit1.text=rzlabel1.text then begin 
groupbox15.visible:=true;
end; 
Yukarıdaki gibi Edit1e girilen veriden labeli bulmasını söylüyorum veya başka bir nesneyi yapamadım.
ajann
Üye
Mesajlar: 39
Kayıt: 15 Haz 2005 11:50

Mesaj gönderen ajann »

Pardon çözdüm sorunu ksra bakmayın.Çömezlik işte.
Cevapla