Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поиск словосочетания в полях [D6, XP]

Alien1769 © (2006-05-18 17:06:00)
Поиск словосочетания в поле Организация. Делаю так:
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;

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

Alien1769 (2006-05-18 19:33:00) [1]

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

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

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

Alien1769 (2006-05-18 17:36:00) [2]

> функцией Locate?

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

Ega23 (2006-05-18 17:35:00) [3]
TableDogovor.Locate('Организация', edtFilter.Text, [])

Johnmen (2006-05-18 17:29:00) [4]
М.б. просто воспользоваться функцией Locate?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »