Проблемы с Locate

← →
Rom © (2006-02-13 22:05) [0]

Здравствуйте.
Помогите, пожалуйста, разобраться с Locate. Для поиска предполагаю использую описанную ниже процедуру. Поиск только по фамилии (edit1) работает, а по имени (edit2) или двум параметрам нет. Помогите, пожалуйста, найти ошибку и обеспечить поиск по двум параметрам
procedure TForm1.Button4Click(Sender: TObject); var locopts: TLocateOptions; locFields: string; locValues: variant; begin locopts:=[]; locFields:="last_name"; if Length(edit2.Text)>0 then begin locFields:=locFields+"; first_name"; LocValues:=VarArrayCreate([0,1], varVariant); //создание вариантного массива LocValues[0]:=Edit1.Text; //фамилия LocValues[1]:=edit2.Text; //имя end else LocValues:=edit1.Text; if checkBox1.Checked then locopts:=locopts+[loPartialKey]; // поиск с частичным совпадением if checkBox2.Checked then locopts:=locopts+[loCaseInsensitive]; //---- без учёта регистра query1.Locate(LocFields, LocValues, locopts ); end;

← →
unknown © (2006-02-13 22:49) [1]

Как ни странно, но код рабочий.
проверил на D7, IBX 7.08

← →
Виталий Панасенко (2006-02-14 11:39) [2]

Не, заню, как все реализовано, но, если в Query1 запрос вида select * from table, можно(нужно!!!) переделать на select * from table where last_name=(like) :last_name and firest_name=(like):first_name
Запрос можно создавать динамически, с учетом значений CheckBox1/2. На малых обьемах разницы не будет видно. Но на 1000 и более записях(при наличии индекса) ты будешь приятно удивлен(или НЕ приятно).

Проблемы с Locate Найти похожие ветки