| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск при вводе [D7, IB6.x]
DelphiNew © (2003-08-19 12:54:00)
Помогите кто чем сможет. Требуется поиск наиболее подходящей записи в базе одновременно при вводе с 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 13:09:00) [1]
Дополнение к Suharew © (19.08.03 13:01) [3]
if edit1.text>"" then
form1.IBQuery1.Locate("A01",trim(edit1.text),[loPartialKey]);
Zacho (2003-08-19 13:08:00) [2]
Кстати, в хелпе даже пример использования Locate есть.
DelphiNew (2003-08-19 13:06:00) [3]
Спасибо люди научили уму-разуму
Johnmen (2003-08-19 13:05:00) [4]
>Я незнаю как использовать Locate
Кнопка F1 западает ?
DelphiNew (2003-08-19 13:01:00) [5]
Я незнаю как использовать Locate. Можешь привести маленький пример или хотя бы просто синтаксис
Suharew (2003-08-19 13:01:00) [6]
Используй свойство Tedit OnChange
впиши туда код
form1.IBQuery1.Locate("A01",trim(edit1.text),[loPartialKey]);
MsGuns (2003-08-19 12:58:00) [7]
Зачет перебором-то (Господи Иисусе - при каждом касании фишки таааакие тормоза - вовбывав бы !)
А Locate нельзя ? Тем более, что надо искать по первым символам
| |
