Владимир
Группа: Администратор
Сообщений: 1190
|
Это есть в IBQuery
CODE |
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
IBQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString s = Edit1->Text;
IBQuery1->LocateNext("Name", s, TLocateOptions()<<loPartialKey);
}
//---------------------------------------------------------------------------
|
A в самом Query это можно сделать
прямым перебором/сравнением отобранных в Query записей
CODE |
Query1->First();
AnsiString s = Edit1->Text;
while(!Query1->Eof){
if(Query1NAME->AsString.Pos(s)){
// И т.д.
}
Query1->Next();
}
|
Отредактировано Admin — 11/07/2003, 01:00
|