Поиск в delphi

[Fastah]

Здравствуйте, помогите доработать поиск из таблицы access.
Имеется 2 поля edit и процедура:

var
Fields: Variant;
begin
Fields:=VarArrayOf([strtoint(edit1.text),edit2.Text]);
ADO_Tovar.Locate ('kod_tovara; postavwik',Fields,[loCaseInsensitive,loPartialKey]);
end;

Нужно сделать если какой-то из edit'ов пустой, то при поиске результат бы не учитывался. Т.е. к примеру вводим код товара (поле поставщик пустое) и в таблице находится строка по коду товара. Процедура же работает корректно при введённых 2х значениях + если edit1 пустое, то программа ругается Exception class EConvertError with message ''' is not a valid integer value'.

[Азамат Казанчев]

procedure TForm2.Button4Click(Sender: TObject);
begin
if not adoquery1.Locate(pole,edit2.Text,[]) then
showmessage('Поле с такой записью не найдено. Проверьте правильность введеных данных');
end;

из моей программы, pole - это поле(столбец) где происходит поиск, edit2.Text - слово или текст который ищется в заданном поле. все рабочее

[Fastah]

Вообще планируется 4 поля edit, и если 1 из них пустое, то придётся перебирать. Как-то не по красоте

[Азамат Казанчев]

не понял, зачем 4?
1 эдит чтоб указать столбец, 2 эдит чтоб задать что ищишь. а 3 и 4 зачам?

[Fastah]

ну смотри таблица в 4 столбца, что бы сделать поиск максимально функциональным в 4 разных edit'a пишутся значения (столбец соответствует edit'у), и находится единственная строка соотв. четырём условиям из 4х edit'ов

[Азамат Казанчев]

4 столбца-это 4 разных поля(поставщик, товар. цена, адрес к примеру)как не крути 1 значение для поиска не будет отвечать(содержаться) этим(в этих) 4 полям(ях). Или я чего снова не понял( как цена может удовлетворять условию полей товара, поставщика, адреса к примеру). поиск находит ключевое(заданное) слово в твоей таблице и ищет его в поле которое ты задаешь( или я не прав?)

[Fastah]

У меня такие поля и пусть соотв. edit'ы отвечают за поиск в них, наименование(edit1), поставщик(edit2), дата(edit3), остаток на складе(edit4)
К примеру мы хотим посмотреть что нам поставил определённый поставщик 28.02.2011, вводим в edit2 имя поставщика в edit3 дату, т.к. поля 1 и 4 не заполнены то поиск в них не учитывается, получаем строку удовлетворяющую условиям

[Азамат Казанчев]

теперь понял. ты результат в отдельной таблице собираешься отображать?

[Fastah]

строка указывается в уже созданной DBGrid

[Азамат Казанчев]

я поискал в своих старых файлах, почитай и твоя проблема решена

Locate(const KeyFields: string; 
const KeyValues: Variant; Options: TLocateOptions): Boolean;

Первый параметр это список полей разделяемых "точкой с запятой" либо одно поле. Второй параметр это значения, которым должны быть равны поля указанные в первом параметре если полей много то во втором параметре должен быть массив из Variant. Если указано несколько полей то переход осуществляется, только если каждое поле, указанное в первом параметре равно значению, указанному во втором параметре. Если переход прошёл успешно, то функция возвращает True. Для того чтобы получить массив из Variant можно использовать функцию VarArrayOf. Вот примеры использования метода Locate:

If not ClientDataSet1.Locate('LastName',Edit1.text,[]) then 
MessageDlg(' " '+Edit1.text+' " не найдено', mtError, [mbOK], 0);

пиши если что. удачи