Ошибка в Delphi

[ZveruGA]

Как Ее исправить?

[genemy]

видимо нету у label метода locate

[ZveruGA]

genemy

Я не помню точно но что то надо в uses прописывать..

[Lucky]

Взят метод от компонента по работе с БД (например, Table или Query).

Locate производит поиск в Dataset по указанным полям первой позиции с указанными значениями этих полей. Table и Query - потомки TDataset.

Locate - метод TDataset (TDataset.Locate(...)).

Судя по загруженному модулю DBTables, используется BDE.

[ZveruGA]

unit Unit20;

interface

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

type
  TForm20 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Panel1: TPanel;
    Button3: TButton;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Edit2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form20: TForm20;

implementation

uses Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17,
  Unit18, Unit19, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm20.Edit2Click(Sender: TObject);
begin
edit2.Text:='';
end;

procedure TForm20.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
'0'..'9',#8: ;
'.',',': begin
if pos(DecimalSeparator,Edit1.Text)<>0 then Key:=Char(0);
end
else Key:=Char(0);
end;
end;

procedure TForm20.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key of
'0'..'9',#8: ;
'.',',': begin
if pos(DecimalSeparator,Edit1.Text)<>0 then Key:=Char(0);
end
else Key:=Char(0);
end;
end;

procedure TForm20.Button3Click(Sender: TObject);
begin
Form7.Show;
end;

procedure TForm20.Button1Click(Sender: TObject);

var keyfields:string; keyvalues:variant; options:tlocateoptions;
begin
if edit1.text='' then
begin
messagedlg('не заданы условия поиска',mtinformation,[mbok],0);
exit;
end;
if edit1.Text<>''  then
begin
keyfields:='Kod_tov';
keyvalues:=edit1.Text;
end;

if not form3.table1.Locate(keyfields,keyvalues,options) then
begin
Beep;
messagedlg('Запись не найдена!',mtinformation,[mbok],0);
exit;
 end
 else
keyfields:='Kod_tov';
keyvalues:=edit1.Text;
options:=[locaseinsensitive,lopartialkey];
form3.Label1.Locate(keyfields,keyvalues,options);

end.

[Lucky]

И нафига эта зелёная борода нужна? Читай выше, ёлы палы...

смотри внимательней

form3.table1.Locate и form3.Label1.Locate

[ZveruGA]

Lucky

Блииииииин вместо Table1 Написал Label1=)

Ну Что Сделаешь 1,5 суток не спал=)

Спасибо=)

[Lucky]

бывает...

отсюда мораль - именуй компоненты, как надо, чтобы не было такого головняка в след. раз