Подскажите, пожалуйста, что не так.
При проверке выдает ошибку
[Ошибка] Unit3.pas(44): Ordinal type required
При проверке выдает ошибку
[Ошибка] Unit3.pas(44): Ordinal type required
Код:
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls;
type
TForm3 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
Edit1: TEdit;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
form3.Close;
Form1.Enabled:=true;
Form1.Button1.Enabled:=true;
form1.Button2.Enabled:=true;
form1.Button3.Enabled:=true;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
If not Form1.DBGrid1.DataSource.DataSet.Locate(Form3.ComboBox1.Text,([Form3.Edit1.Text]),[]);
Then ShowMessage('Не найдено :(');
end;
end.