Поиск при вводе

← →
DelphiNew (2003-08-19 12:54) [0]

Помогите кто чем сможет. Требуется поиск наиболее подходящей записи в базе одновременно при вводе с TEdit. Я хотел попробовать так:
function SeqSearch: Boolean;
begin
with FrmSpravOtpr.IBQSpr do
begin
First;
while (not Eof) and (not (FieldByName("A01").AsString = FrmSpravOtpr.Edit1.Text)) do
Next;
SeqSearch := not Eof;
end;
end;
И поставить интервал на таймере =500 но он у меня зацикливается так как при создании значение TEDIT= пустое. Кто нибудь знает как обойти эту проблему или подскажите другое решение. Наформе имеется DBGrid, IBQuery, TEdit

← →
MsGuns (2003-08-19 12:58) [1]

Зачет перебором-то (Господи Иисусе - при каждом касании фишки таааакие тормоза - вовбывав бы !)
А Locate нельзя ? Тем более, что надо искать по первым символам

← →
DelphiNew (2003-08-19 13:01) [2]

Я незнаю как использовать Locate. Можешь привести маленький пример или хотя бы просто синтаксис

← →
Suharew (2003-08-19 13:01) [3]

Используй свойство Tedit OnChange
впиши туда код
form1.IBQuery1.Locate("A01",trim(edit1.text),[loPartialKey]);

← →
Johnmen (2003-08-19 13:05) [4]

>Я незнаю как использовать Locate

Кнопка F1 западает ?

← →
DelphiNew (2003-08-19 13:06) [5]

Спасибо люди научили уму-разуму

← →
Zacho (2003-08-19 13:08) [6]

Кстати, в хелпе даже пример использования Locate есть.

← →
MsGuns (2003-08-19 13:09) [7]

Дополнение к Suharew © (19.08.03 13:01) [3]

if edit1.text>"" then form1.IBQuery1.Locate("A01",trim(edit1.text),[loPartialKey]);

Поиск при вводе Найти похожие ветки