[lmikle]

Сообщение от DDim1000

Написал простую программу, которая выводит таблицию из базы данных dbm, сделал поиск в программе, но этот ведется только в одном столбце "Имя", как сделать так, чтобы поиск был по всем столбцам таблиции? - Фамилия, Имя, Отчество.

Я бы просто руками написал. Locate не всегда срабатывает правильно и всгда находит только первое вхождение.

Код:

function TForm1.FindEntry(AValue : String; AColumns : Array of String; AFromFirst : Boolean) : Boolean;
var
  I : Integer;
begin
  Result := False;
  If AFromFirst 
    Then dbgrid1.DataSource.DataSet.First
    Else dbgrid1.DataSource.DataSet.Next;
  While Not dbgrid1.DataSource.DataSet.Eof Do
    Begin
      For I := Low(AColumns) To High(AColumns) Do
        Begin
           Result := dbgrid1.DataSource.DataSet.FieldByName(AColumns[i]).AsString = AValue;
           If Result Then Break;
        End;
      If Result Then Break;
      dbgrid1.DataSource.DataSet.Next;
    End;
end;