tek satır sql cümlesi ile tüm butonlardan arama...

[Biltes]

Arkadaşlar merhaba;

Formda 31 tane butonum var A,B,C...V,Y,Z şeklinde devam ediyorlar bunların hepsi bir speedbuton aslında. Her butonun altında aşağıdaki kodu yazarak harflere göre arama yaptırıyorum. Ama 31 tanesinin de altına tek tek harfe göre kod yazmak gerekiyor.

Kod: Tümünü seç

  with bilgitable do
  begin
  close;
  sql.clear;
  sql.add('select *from bilgi where adi like "A%"');
  open;
  end;

bu şekilde 31 tane kod yazmaktansa bir fonksiyon yada procedure ile yada başka bir yöntem ile bu olayı nasıl çözerim. Yani demek istediğim

like "A%"

olarak yazmaktansa hangi speedbuton'a tıklandıysa "A" yerine o speedbutonun ismini alması...

Teşekkü ederim...

[hdayi]

Kod: Tümünü seç

TSpeedButton(Sender).Caption

Bu sana hangi tuşa bastı isen onun caption'ını döner.

Kolay Gelsin...

[Biltes]

Hocam cevap için tşk ederim...

Aşağıdaki kod şeklinde denedim ama sürekli olarak tüm tabloyu boşaltıyor.. Hata nerede acaba...

Kod: Tümünü seç

  with bilgitable do
  begin
  close;
  sql.clear;
  sql.add('select *from bilgi where adi like '+#39+TSpeedButton(Sender).Caption+#39'');
  open;
  end;

Tşk Ederim..

[hdayi]

Sanırım % 'yi unutmuşsun.

Kolay gelsin..

[Biltes]

Hocam çok tşk ederim. Dediğiniz gibi %'yi unutmuşum.

Allah razı olsun...