Ошибка Undeclared identifier: 'Locate'

[Valeria15]

Привет все! Помогите пожалуйста. Делаю программу "Записная книжка" пытаюсь сделать кнопку "поиск" пишу следующую программу для кнопки, а она мне выдает ошибку: Undeclared identifier: 'Locate'
Что мне делать?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not DBGrid1.Locate('Ôàìèëèÿ',Edit1.Text,[loCaseInsensitive, loPartialKey])then
    ShowMessage('Çàïèñü íå íàéäåíà');
end;

end.

У нас принято оформлять код специальным тегом. Кнопка #. Модератор

[astecenko]

Locate это метод TDataSet, который наследуется всеми его наследниками, в том числе и TClientDataSet.
TDBGrid к наследникам TDataSet не относится.
Советую обзавестись какойнибудь книженцией по программированию/разработке БД в Delphi ;-)

[Valeria15]

Спасибо за ответ! А как тогда мне в данной программе сделать поиск данных?

[Аватар]

ClientDataSet1.Locate('Ôàìèëèÿ',Edi t1.Text ,[loCaseInsensitive])

[Valeria15]

Спасибо. Работает!

Помогите пожалуйста, выдает ошибку: Undeclared identifier: 'Memo1'
Вот код программы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    ComboBox1: TComboBox;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    SaveDialog1: TSaveDialog;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   s: string;
implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
 if savedialog1.execute then
 begin
 memo1.lines.savetofile(savedialog1.filename+'.doc');
 memo1.Clear();
end;
s:=savedialog1.FileName+'.doc';
end;
end.

[Аватар]

И где же это Memo1 на форме находится? Нет его в описании формы - не дословный, но перевод сообщения об ошибке

[Valeria15]

Скажите, как сделать,чтобы картинка стала фоновым изображением формы?

[Serge_Bliznykov]

вопрос никакого отношения к начальной теме не имеет.
Одна тема - один вопрос.

ЗАКРЫТО

Модератор.