Показать сообщение отдельно
  #2  
Старый 27.07.2010, 10:25
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,497
Версия Delphi: 7, XE3, 10.2
Репутация: 49088
По умолчанию

О-хо-хо...
Дык код тебе дадут... но он либо не подойдет напрямую, либо вообще будет не совсем то.

Код:
procedure TForm1.Button1Click(Sender : TObject);
begin
  If not DBGrid1.DataSource.DataSet.Locate('FIO',VarArrayOf([Edit1.Text]),[]);
    Then ShowMessage('Что-то ничего нету :(');
end;

ЗЫ. С сигнатурой Locate мог попутать слегка - проверь в среде...
Ответить с цитированием