büyük küçük harf duyarsız

[zaxacm]

Aşağıdaki kod gayet güzel çalışıyor ama büyük küçük harf duyarsız olsun istiyorum.Nasıl bir ekleme yapmam lazım

procedure Tfrmogrenciler.Edit1Change(Sender: TObject);
var kriter :string;
begin
Case RadioGroup1.ItemIndex of
0 : kriter:='ONO';
1 : kriter:='OAD' ;
2 : kriter:='OSOYAD' ;
end;
IbQuery1.Close;
IbQuery1.Sql.Clear;
IbQuery1.Sql.Add('Select * From ogrenci Where '+kriter+' like '+QuotedStr('%'+Trim(Edit1.Text)+'%'));
IbQuery1.Open;
end;

[fduman]

Kod: Tümünü seç

Select * From ogrenci Where UPPER('+kriter+') like '+QuotedStr('%'+Trim(AnsiUpperCase(Edit1.Text))+'%')

Yaparak veritabanı ve değerin büyük harf olmasını sağlayarak karşılaştırabilirsin.

AnsiUppercase "i" yi büyük "I" olarak dönüştürüyor dikkat!