- Код: Выделить всё
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text:= 'select ... и тд'
SQLQuery1.Open;
DBGrid2.DataSource:=DataSource1;
DBGrid2.Columns[0].FieldName:= 'grouping';
DBGrid2.Columns[1].FieldName:= 'begDate';
DBGrid2.Columns[2].FieldName:= 'endDate';
DBGrid2.Columns[3].FieldName:= 'code'; ... и тд
на форме LabeledEdit1 при вводе в который надо динамически фильтровать отображаемые данные содержащие их.
- Код: Выделить всё
Tmain.LabeledEdit1Change(Sender : TObject);
begin
DBGrid2.DataSource.DataSet.Filtered := False;
DBGrid2.DataSource.DataSet.Filter:='code like %' + LabeledEdit1.Text + '%';
DBGrid2.DataSource.DataSet.Filtered := True;
end;
в делфи все было без проблем..( например stomers.Filter := '([PIN] LIKE %' + EditF11L.Text + '%) or ') а тут какой синтаксис?
Подскажите пожалуйста.