[DOR]

Помогите пожалуйста поправить код.

Код:

procedure Tf_InformKontragenta.ComboBox1Change(Sender: TObject);
var
  Q : TIBQuery;
begin
  Q := TIBQuery.Create(nil);
  Q.Database := Module.IBDatabase1;
  Q.Transaction := Module.IBTransaction1;
  Q.Close;
  Q.SQL.Clear;
  Q.SQL.Add ('SELECT * FROM S_PF WHERE FULL_NAME CONTAINING (:Poisk)');
  Q.Params.Items[0].AsString := ComboBox1.Text;
  Q.Open;
  Q.First;
  ComboBox1.Items.Clear;
    While not Q.Eof Do
      begin
        ComboBox1.Items.Add(Q.FieldByName('FULL_NAME').AsString);
        Q.Next;
      end;
end;

[M.A.D.M.A.N.]

Тормозной фильтр.
Проще в гриде строки прятать.

[DOR]

Грида не будет, нужен фильтр в комбобоксе, т.к. выпадающий список весьма велик.

[M.A.D.M.A.N.]

Что нужно то? Какой фильтр? Ввел ты текст в комбо и что дальше?

[DOR]

Нужно. В комбобокс запросом вытягиваются значения из СУБД (Файрберд). Нажимаю на комбобоксе открыть список, и при вводе слова (не обязательно целиком, и не спервого символа строки), выпадающий список сокращается и состоит только из тех строк которые содержат введенное слово. После того как список сократиться до удобного кол-ва строк, пользователь может выбрать нужную ему строку.

[Yurk@]

ну так выбери всё по

Код:

SELECT * FROM S_PF

а потом по ComboBox1.OnChange делай обновляй фильтр который будет отрабатывать событие OnFilterRecord твоей квери.

ЗЫ. а сама идея - не айс)

[M.A.D.M.A.N.]

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

Нужно. В комбобокс запросом вытягиваются значения из СУБД (Файрберд). Нажимаю на комбобоксе открыть список, и при вводе слова (не обязательно целиком, и не спервого символа строки), выпадающий список сокращается и состоит только из тех строк которые содержат введенное слово. После того как список сократиться до удобного кол-ва строк, пользователь может выбрать нужную ему строку.

Сложновато такое будет сделать стандартным контролом.