Поиск

[Seka18]

Помогите написать программу для поиска. Пробовал методом LookUp, но не находит нужное значение при поиске. Вот сам код:

procedure TForm1.Button2Click(Sender: TObject);
var

  myLookup: Variant; //для получения результата

  s : String; //для отчета
begin
     //получаем результат:

  myLookup := Form1.Table1.Lookup('Familia', Edit1.Text,

              'Familia;Ima;Otchestvo;Obraz');

  //проверяем, не Null ли это:

  if VarType(myLookup) = varNull then

     ShowMessage('Сотрудник с такой фамилией не найден!')

  else if VarType(myLookup) = varEmpty then

     ShowMessage('Запись не найдена!')

  //если это массив, то из его элементов собираем

  //многострочную строку:

  else if VarIsArray(myLookup) then begin

     s := myLookup[0] + #13 +  myLookup[1] + #13 +

            myLookup[2] + #13 + myLookup[3];

     //и выводим ее на экран:

     ShowMessage(s);

  end; //else if

end;

[XE5]

Помогите написать программу для поиска

Поиска чего? Иголки в стоге сена? Вопрос по Русски озвучьте.

[Stilet]

но не находит нужное значение при поиске

Значит нет такого значения в наборе.
Воспользуйся методом Locate() В его последний параметр передай loPartialKey, чтоб искал по подстроке.

Вопрос по Русски озвучьте.

Для поиска в полученном наборе в датасете. Смотри же внимательней на код.

[XE5]

Смотри же внимательней на код.

Прежде чем ковырять код, нужно услышать задачу. Чётко поставленная задача, это половина ответа.

[Stilet]

Так то оно так, но четких задач студенты не ставят. Поэтому ковырять код нужно. Хорошо что хоть код более-менее четкий.