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

← →
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 не знал!
Спасибо!

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

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

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

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