Table1.IndexName:='';// имя индексного файла (по полю название)
if table1.FindKey([edit1.Text]) then begin
...
end
else ShowMessage('не найдено!');
procedure TForm3.Button8Click(Sender: TObject);Это пример из моей проги по фильтрации по полю АДРЕС
var
s:string;
begin
s:=Edit1.Text;
if CheckBox1.Checked then // это ПОЛНОЕ СОВПАДЕНИЕ ИЛИ ЧАСТИЧНОЕ
edit1.Text:='Adres='+chr(39)+edit1.Text+chr(39) //адрес это мое поле было
else edit1.Text:='Adres='+chr(39)+edit1.Text+'*'+chr(39);
table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s;
end;
procedure TForm3.Button8Click(Sender: TObject);Это пример из моей проги по фильтрации по полю АДРЕС
var
s:string;
begin
s:=Edit1.Text;
if CheckBox1.Checked then // это ПОЛНОЕ СОВПАДЕНИЕ ИЛИ ЧАСТИЧНОЕ
edit1.Text:='Adres='+chr(39)+edit1.Text+chr(39) //адрес это мое поле было
else edit1.Text:='Adres='+chr(39)+edit1.Text+'*'+chr(39);
table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s;
end;
procedure TForm3.Button1Click(Sender: TObject);
var s:string;
begin Table1.IndexName:='Name';// имя индексного файла (по полю название)
if table1.FindKey([edit1.Text]) then begin
s:=Edit1.Text;
if CheckBox1.Checked then // это ПОЛНОЕ СОВПАДЕНИЕ ИЛИ ЧАСТИЧНОЕ edit1.Text:='Name='+chr(39)+edit1.Text+chr(39) //name это мое поле было
else edit1.Text:='Name='+chr(39)+edit1.Text+'*'+chr(39);
table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s; end; end;
Table1.IndexName:='Name';// имя индексного файла (по полю название)Это я пример привел. Для фильтрации не нужен индексный файл
procedure TForm3.Button1Click(Sender: TObject);На скрине не видно чтоб дбгрид был привязан к таблице
var s:string;
begin
edit1.Text:='Name='+chr(39)+edit1.Text+chr(39) //ВМЕСТО NAME= пишешь СВОЕ ПОЛЕ и знак =
table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s;
end;
Table1.IndexName:='Name';// имя индексного файла (по полю название)Это я пример привел. Для фильтрации не нужен индексный файл
procedure TForm3.Button1Click(Sender: TObject);На скрине не видно чтоб дбгрид был привязан к таблице
var s:string;
begin
edit1.Text:='Name='+chr(39)+edit1.Text+chr(39) //ВМЕСТО NAME= пишешь СВОЕ ПОЛЕ и знак =
table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s;
end;
procedure TForm3.Button1Click(Sender: TObject);
var
s:string;
begin
edit1.Text:='Name='+chr(39)+edit1.Text+chr(39); //адрес это мое поле было
Table1.Filtered:=True;
Table1.Filter:=edit1.Text;
edit1.Text:=s;
end;