Delphi - TTable - filter
Chcel by som nastaviť v TTable takýto filter:
1. "case sensitive"
2. možnosť zadania aj textu zo stredu položky
3. kontrola všetkých položiek
Je takáto možnosť? Ja mám teraz nastavený takýto a ďalej sa neviem pohnúť:
1. možnosť zadania len od začiatku položky
2. kontrola všetkých položiek
Tu je "zdroják" filtra:
procedure TCllientsForm.edSearchChange(Sender: TObject);
var
s: String;
begin
Table.Filtered := False;
s := edSearch.Text + '*';
if s <> '' then
begin
Table.Filter := '([0] = ' + QuotedStr(s) +
') or ([1] = ' + QuotedStr(s) +
') or ([2] = ' + QuotedStr(s) +
') or ([3] = ' + QuotedStr(s) +
') or ([4] = ' + QuotedStr(s) +
') or ([5] = ' + QuotedStr(s) +
') or ([6] = ' + QuotedStr(s) + ')';
Table.Filtered := True;
end;
end;