denedigim yollar:
1)- Editin charcase özelligini ecUppercase yaptım ama büyük (İ) harfini (I) olarak gördüğü için problem oluyor.
2)- asagıdaki kodu kullandım ama yine i harfi (İ) oldugu için problem oldu
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.FilterOptions:=[foCaseInsensitive];
Table1.Filter:='DOSYANO='+edit1.text;
Table1.Filtered:=true;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
table1.FilterOptions:=[foCaseInsensitive];
Table1.Filter:='Adi='+QuotedStr(edit1.text+'*');
Table1.Filtered:=true;
end;
Kod: Tümünü seç
procedure TMyForm.Button1Click(Sender: TObject);
Var
KeyState : TKeyboardState;
begin
GetKeyboardState(KeyState);
if (KeyState[VK_CAPITAL] = 0) then
KeyState[VK_CAPITAL] := 1
else
KeyState[VK_CAPITAL] := 0;
SetKeyboardState(KeyState);
end;