[lmn]

Доброго времени суток!
Вот это взял с Вашего форума (ссылка: "http://www.delphisources.ru/forum/showthread.php?t=13110") указваю ссылку т.к. тема закрыта. Всё компилится, но работает не так хорошо.

Код:

procedure TForm1.Button7Click(Sender: TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [])
  then ShowMessage('ТаLкой записи в Базе Данных Нет!');
end;

Я решил добавить сюда loPartialKey для более удобного поиска и получил следующее:

procedure TForm1.Button7Click(Sender: TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('Имя', Edit1.Text, [loPartialKey])
  then ShowMessage('Такой записи в Базе Данных Нет!');
end;

Админ: Пользуемся тегами при оформлении кода!

Но у меня остался не решенным вопрос в продолжение темы. А вопрос такой: При нахождении одинаковых записей в БД и повторном нажатии кнопки "Поиск", поиск не продолжается. То есть, если много записей с одинаковым именем, то при нажатии на кнопку "Поиск" повторно, курсор остаётся на первой найденной записи. Ещё поиск из данного примера ищет не по всему полю. Если кто сталкивался с подобными проблемами и решил их, то пожалуйста помогите. За ранее Благодарен!

[lmikle]

Ну да, т.к. Locate каждый раз ничинает искать с начала, находит ту же запись и останавливается. Тут придется таки писать поиск "ручками".

[NumLock]

Сортирнуть по локейтному полю или заюзать фильтр...

[lmn]

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

Ну да, т.к. Locate каждый раз ничинает искать с начала, находит ту же запись и останавливается. Тут придется таки писать поиск "ручками".

Как это сделать?

[lmn]

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

Сортирнуть по локейтному полю или заюзать фильтр...

В этом случае фигня получится. Как продолжится поиск? Да и бутор далёкий от темы просьба не писать!

[@Rafa3L]

Код:

var
 flg: bool = true;
procedure TfrmMain.Button7Click(Sender: TObject);
begin
 with DBGrid1.DataSource.DataSet do
  begin
   if flg then First else Next;
   while not eof do
    begin
     if FieldByName('Имя').AsString = Edit1.Text then
      begin
       flg:= false;
       break;
      end;
     Next;
     if (eof) and (flg) then
      begin
       First;
       ShowMessage('Такой записи в Базе Данных Нет!');
       break;
      end;
    end;
  end;
end;

[lmn]

Сообщение от @Rafa3L

Код:

var
 flg: bool = true;
procedure TfrmMain.Button7Click(Sender: TObject);
begin
 with DBGrid1.DataSource.DataSet do
  begin
   if flg then First else Next;
   while not eof do
    begin
     if FieldByName('Имя').AsString = Edit1.Text then
      begin
       flg:= false;
       break;
      end;
     Next;
     if (eof) and (flg) then
      begin
       First;
       ShowMessage('Такой записи в Базе Данных Нет!');
       break;
      end;
    end;
  end;
end;

Это вообще хня полнейшая!

[M.A.D.M.A.N.]

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

Это вообще хня полнейшая!

Ты разгадал сакральный смысл этого аккаунта.

[NumLock]

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

с подобными проблемами и решил их, то пожалуйста помогите.

Вообще не проблема. Тем более эта программа не нужна, есть другие работающие.