Поиск в delphi

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

ClientDataSet1.Locate('LastName;FirstName', VarArrayOf( ['Иванов', 'Иван'] ), []);

последний кусок забыл привести

[Serge_Bliznykov]

думаю, что автору топика нужно что-то вроде такого:

procedure TForm1.Button1Click(Sender: TObject);
var
  sFields : string;
  EditValues : variant;
  k, CntFillEdit : integer;
begin
  // подсчитаем, сколько Edit заполнено
  CntFillEdit := ord(Trim(Edit1.Text)<>'') +
                  ord(Trim(Edit2.Text)<>'') +
                  ord(Trim(Edit3.Text)<>'') +
                  ord(Trim(Edit4.Text)<>'');
  ShowMessage('Вы заполнили '+InttoStr(CntFillEdit)+' эдитов из 4-х ');

  // если ни один не заполнен - нечего тут делать, выходим из процедуры!
  if CntFillEdit = 0 then Exit;

  // создадим нужный вариантный массив значений для поиска
  EditValues := VarArrayCreate([0, CntFillEdit-1], varVariant);

  sFields := '';
  k := -1;
  if Trim(Edit1.Text)<>'' then begin
     inc(k);
     if sFields<>'' then sFields := sFields + ';';
     sFields := sFields + 'kod_tovara';
     EditValues[k] := Edit1.Text;
  end;
  if Trim(Edit2.Text)<>'' then begin
     inc(k);
     if sFields<>'' then sFields := sFields + ';';
     sFields := sFields + 'postavwik';
     EditValues[k] := Edit2.Text;
  end;
  if Trim(Edit3.Text)<>'' then begin
     inc(k);
     if sFields<>'' then sFields := sFields + ';';
     sFields := sFields + 'ТУТ_ПОЛЕ_EDIT3';
     EditValues[k] := Edit3.Text;
  end;
  if Trim(Edit4.Text)<>'' then begin
     inc(k);
     if sFields<>'' then sFields := sFields + ';';
     sFields := sFields + 'ТУТ_ПОЛЕ_EDIT4';
     EditValues[k] := Edit4.Text;
  end;

  if Not ADO_Tovar.Locate (sFields, EditValues, [loCaseInsensitive,loPartialKey])
     then ShowMessage('Ничего не нашлось...');

end;

код компилируется. Но работоспособность не проверял!

[Fastah]

Всё равно нужно результата нет, долго не искал ошибок, но не ищет если заполнен всего 1 edit и ищет только при введении полного значения.
Ладно всем спасибо за ответы, сделаю одиночный поиск