фильтр несколько условий из Edit1

[Yurk@]

var
  s : string;
begin
  s := Edit1.Text;
  repeat // чистим от лишних пробелов между параметрами
    s := StringReplace(s, ' ', '', [rfReplaceAll]);
  until pos(s, ' ') = 0;
  // вот здесь было-бы неплохо еще добавить проверку на наличие "запятой" в начале и конце строки
  Q.Close;
  // в запросе разделителем аргументов используется "запятая", можно изменить на другое
  Q.SelectSQL.Text := 'SELECT * FROM t_towns WHERE  '',''||:param||'','' CONTAINING '',''||id||'',''';
  Q.ParamByName('param').AsString := s;
  Q.Open;
end;

[Аватар]

Yurk@, это FireBird или InterBase съест и только. ТС не оговорил используемое СУБД

[Yurk@]

любая база сьест которая поддерживает CONTAINING, эт просто под рукой была FB-база)
ну а то что ТС не уточнил БД - *PARDON*

UPD: можно попробовать так:

Q.SelectSQL.Text := 'SELECT * FROM t_towns WHERE '',''||:param||'','' LIKE ''%,''||id||'',%''';

[xxbesoxx]

Всем спасибо ребята за помочь . Но не работает Компонент ADO СУБД MS.SQL

procedure TMain.BitBtn3Click(Sender: TObject);
var
s : string;
begin
s := Edit.Text;
repeat // чистим от лишних пробелов между параметрами
s := StringReplace(s, ' ', '', [rfReplaceAll]);
until pos(s, ' ') = 0;
// вот здесь было-бы неплохо еще добавить проверку на наличие "запятой" в начале и конце строки
OrdersQuery.Close;
// в запросе разделителем аргументов используется "запятая", можно изменить на другое
OrdersQuery.SQL.Text := 'SELECT * FROM Orders WHERE '',''||aram||'','' CONTAINING '',''||EmployeeID||'',''';
OrdersQuery.Parameters.ParamByName( 'param').Value := s;
OrdersQuery.Open;

end;

из ODAC на Oracle Тоже не работает

procedure TForm1.BitBtn1Click(Sender: TObject);
var
s : string;
begin
s := Edit1.Text;
repeat //
s := StringReplace(s, ' ', '', [rfReplaceAll]);
until pos(s, ' ') = 0;

OraQuery1.Close;
//
OraQuery1.SQL.Text := 'SELECT employee_id, department_id, first_name, last_name,job_id,salary '+
'FROM employees WHERE '',''||aram||'','' CONTAINING '',''||employee_id||'',''';
OraQuery1.ParamByName('param').AsSt ring := s;
OraQuery1.Open;

end;

Ребята огромное спасибо, за внимание за помощь, Что делать буду без параметра пользовать
Без параметра, вот так работает хорошо

procedure TMain.Button1Click(Sender: TObject);
begin
if Edit1.Text ='' then begin
Beep();
MessageDlg('Фильтр по пустым значениям не выполнится', mtWarning, [mbOK], 0);
Edit1.SetFocus;
Abort;
Edit1.SetFocus;
end;
OrdersQuery.Close;
OrdersQuery.SQL.Clear;
OrdersQuery.SQL.Add('SELECT * FROM Orders');
OrdersQuery.SQL.Add('WHERE EmployeeID IN ('+ Edit1.Text+ ')');
OrdersQuery.Open;
end;