Скачать: CL | DM;

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

← →
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]);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c