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

Поиск словосочетания в полях   Найти похожие ветки 

← →
Alien1769 ©   (2006-05-18 17:06) [0]

Поиск словосочетания в поле Организация. Делаю так:
procedure TfmDogovor.btnFindClick(Sender: TObject);
var
 q,l,c,i,k:word;
 s,f:string;
begin
 f:=edtFilter.Text;
 q:=length(f);
 if q>0 then begin
 For i:=TableDogovor.RecNo to TableDogovor.RecordCount do
 begin
   s:=TableDogovor.FieldByName("Организация").AsString;
   k:=1;
   for c:=1 to length(s) do
   begin
     if upcase(s[c])=upcase(f[1]) then
     begin
       for l:=1 to q do
       if upcase(s[c+l])=upcase(f[l+1]) then
       inc(k);
       if k=q then beep;
     end;
     if k=q then break;
   end;
   if k=q then break;
   TableDogovor.Next;
 end;
end;

Но всегда находит искомое. Чего делаю не так.

---

← →
Johnmen ©   (2006-05-18 17:29) [1]

М.б. просто воспользоваться функцией Locate?

---

← →
Ega23 ©   (2006-05-18 17:35) [2]

TableDogovor.Locate("Организация", edtFilter.Text, [])

---

← →
Alien1769 ©   (2006-05-18 17:36) [3]

> функцией Locate?


Извиняюсь, однако про Locate не знал!
Спасибо!

---

← →
Alien1769 ©   (2006-05-18 19:33) [4]

> TableDogovor.Locate("Организация", edtFilter.Text, [])


Спасибо за пример.
Наверное, когда книжку для чайников листал пропустил или не увидил TBDEDataSet.Locate.

Спасибо за внимание!

---

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

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



Память: 0.45 MB
Время: 0.026 c