Подскажите как организовать фильтрацию при помоци Halcyon 6

← →
ceval © (2004-11-01 18:31) [0]

Подскажите как организовать фильтрацию при помоци Halcyon 6
Написал такой код :
procedure TFfiltr_ktcp.FormCreate(Sender: TObject); var p: PTmp; i: integer; begin ComboBox.Clear; -------- New(p); p.str :="КО буквенное детали"; p.code := "oddcb"; ComboBox.AddItem(p.str, TObject(p)); ComboBox.ItemIndex:=0; New(p); p.str :="КО цифровое детали"; p.code := "oddcc"; ComboBox.AddItem(p.str, TObject(p)); New(p); p.str :="Наименования детали"; p.code := "nd"; ComboBox.AddItem(p.str, TObject(p)); ...... ... end; procedure TFfiltr_ktcp.Button_runClick(Sender: TObject); var selfld, ntext:string; begin if Fmain.dbgrid1.Visible then begin if length(Edit1.Text) > 0 then begin Selfld:=PTmp(ComboBox.Items.Objects[ComboBox.ItemIndex])^.code; if length(Selfld) > 0 then begin Edit1.text:=""; ntext:=Edit1.Text; fmain.table_ktcp.Filter:=""; Fmain.table_ktcp.Filtered:=true; Fmain.table_ktcp.Filter:=Selfld+" LIKE ""%"+ntext+"%"""; end; end; end; close; end;

Выдает ошибку ".. class EHalcyonExpession with message "Syntax Error in expression "oddcb LIKE "%%""".
Как исправить ?
Спасибо

← →
sniknik © (2004-11-01 20:31) [1]

не понимает он такого видимо
поставь точное (попробуй другие варианты, возможно * вместо %... тд. см доку по нему)
Selfld+"="""+ntext+"""";
Selfld+"=""*"+ntext+"*""";
...

или смотри на событие OnFilterRecord.

Подскажите как организовать фильтрацию при помоци Halcyon 6 Найти похожие ветки