[pobeda]

Несколько дней мучаюсь с фильтрами, не пойму что я не так делаю, подскажите пожалуйста!!

if (edit1.Text<>'') then
begin
DBGrid1.DataSource.DataSet.Filter:='(IMSI LIKE '''+edit1.Text+'%'')';
DBGrid1.DataSource.DataSet.Filtered:=true;
end
else
DBGrid1.DataSource.DataSet.Filtered:=false;

в поле IMSI только цифры, работаю с датасетом и датасоурсом, IBExpert

[darktmlr]

Попробуй так
Filter:='IMSI LIKE '+Chr(39)+edit1.Text+'%'+Chr(39);
Chr(39) дает ' -(Апостраф)

[Ildar-tsr]

Так что мучаетесь? Ошибка выходит или неправильно на ваш взгляд фильтруется? В чем проблема то?

[pobeda]

Сообщение от darktmlr

Попробуй так
Filter:='IMSI LIKE '+Chr(39)+edit1.Text+'%'+Chr(39);
Chr(39) дает ' -(Апостраф)

Данное решение вообще работать не хочет.

В мое варианте все как бы работает, но ничего визуально не происходит.

[Ildar-tsr]

В целях эксперимента, замените:

Код:

DBGrid1.DataSource.DataSet.Filter:='(IMSI LIKE '''+edit1.Text+'%'')';

на:

Код:

DBGrid1.DataSource.DataSet.Filter:='(IMSI = ''qwerty'')';

и посмотрите, что будет. Если и на сей раз визуально ничего не поменяется, то программа просто не заходит в данный участок кода.

[pobeda]

Сообщение от Ildar-tsr

В целях эксперимента, замените:

Код:

DBGrid1.DataSource.DataSet.Filter:='(IMSI LIKE '''+edit1.Text+'%'')';

на:

Код:

DBGrid1.DataSource.DataSet.Filter:='(IMSI = ''qwerty'')';

и посмотрите, что будет. Если и на сей раз визуально ничего не поменяется, то программа просто не заходит в данный участок кода.

Так и есть, но почему так может быть? фильтр висит на кнопке

[Ildar-tsr]

Киньте весь код, выполняемый при нажатии на кнопку.

[pobeda]

procedure TfmStatzv.Button1Click(Sender: TObject);
begin
if (edit1.Text<>'') then
begin
DBGrid1.DataSource.DataSet.Filter:= '(IMSI = ''qwerty'')';
DBGrid1.DataSource.DataSet.Filtered:=true;
end
else
DBGrid1.DataSource.DataSet.Filtered:=false;


end;

Вот весь код

[Ildar-tsr]

Встаньте на строку

Код:

if (edit1.Text<>'') then

и нажмите F5. Запустите программу, нажмите кнопку Button1, и дальше идите, наживая F8.

[pobeda]

Строка стала зеленой с меткой красным перечеркнутым кругом вместо красного круга, дальше никаких действий не происходило

[pobeda]

помогите пожалуйста, очень нужно для диплома

[Ildar-tsr]

Я не совсем понял, что вы там описали про зеленые крестики...
Делаем так (комментим весь ваш код и прописываем showmessage):

Код:

procedure TfmStatzv.Button1Click(Sender: TObject);
begin
  {if (edit1.Text<>'') then
    begin
      DBGrid1.DataSource.DataSet.Filter:= '(IMSI = ''qwerty'')';
      DBGrid1.DataSource.DataSet.Filtered:=true;
    end
  else
    DBGrid1.DataSource.DataSet.Filtered:=false;}
  ShowMessage('test');
end;

Нажмите на кнопку, отпишитесь вышло сообщение или нет.

[NumLock]

тогда уж так:

Код:

  if DBGrid1.DataSource.DataSet.Filtered then
    ShowMessage(DBGrid1.DataSource.DataSet.Filter)
  else
    ShowMessage('!Filter');

[pobeda]

Сообщение от NumLock

тогда уж так:

Код:

  if DBGrid1.DataSource.DataSet.Filtered then
    ShowMessage(DBGrid1.DataSource.DataSet.Filter)
  else
    ShowMessage('!Filter');

выдало сообщение DBGrid1.DataSource.DataSet.Filter

[Ildar-tsr]

Код:

procedure TfmStatzv.Button1Click(Sender: TObject);
begin
  if (edit1.Text<>'') then
    begin
      DBGrid1.DataSource.DataSet.Filtered:=false;
      DBGrid1.DataSource.DataSet.Filter:= '(IMSI LIKE '''+edit1.Text+'%'')';
      DBGrid1.DataSource.DataSet.Filtered:=true;
    end
  else
    DBGrid1.DataSource.DataSet.Filtered:=false;
end;