harf harf arama

[zaxacm]

Aşağıdaki kodlarla ilgili 2 sorunum var:
1.Bir harfe bastığımda harfe göre süzüyor ama 2.harfe bastığımda sadece 2.harfe göre süzüyor.Yani A ya basıyorum tamam ama L ye bastığımda AL ye göre değil sadece L ye göre süzüyor.

2.suicombobox1 textinde "Arama yapabilirsiniz" yazıyor. Bu yazı varsa yani suicombobox1dan bir seçim yapılmamışsa, "Bir arama kriteri seçmelisiniz" diye uyarı mesajı versin , seçim yapılmışsa aramayı yapsın.


procedure TFgenel.Edit1KeyPress(Sender: TObject; var Key: Char);
var
sql1 ,sql2,s,kriter : string;
begin

Case suicombobox1.ItemIndex of
0 : kriter:='ad';
1 : kriter:='kisi' ;
end;


if key = #8 then s := copy(s,1,length(s)-1)
//else if key = #13 then button1.Click
else s := s + key;

datasource1.DataSet := ADOQuery1;
sql1 := 'select * from genel';
sql2 := 'where '+kriter+' like "' + s + '%"'+ ' or '+kriter+' like "' + uppercase(s) + '%"';
ADOQuery1.Active := false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sql1);
ADOQuery1.SQL.Add(sql2);
ADOQuery1.Active := true;

end;

[t-hex]

s değişkenine edit1deki değerleri atamayı unutmuşsun

Kod: Tümünü seç

 s := edit1.text;

gibi bir şey ekle prosedürün başına