[kriv0y]

Сообщаяет о undeclared identifier

Код:

вот мой весь код


unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, mmsystem, ExtCtrls;

type
  TForm7 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button11: TButton;
    Button12: TButton;
    OpenDialog1: TOpenDialog;
    OpenDialog2: TOpenDialog;
    OpenDialog3: TOpenDialog;
    OpenDialog4: TOpenDialog;
    OpenDialog5: TOpenDialog;
    OpenDialog6: TOpenDialog;
    OpenDialog7: TOpenDialog;
    OpenDialog8: TOpenDialog;
    OpenDialog9: TOpenDialog;
    OpenDialog10: TOpenDialog;
    Image11: TImage;
    Label11: TLabel;
    Timer1: TTimer;
    Button13: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
   p1n:string;
   p2n:string;
   p3n:string;
   p4n:string;
   p5n:string;
   p6n:string;
   p7n:string;
   p8n:string;
   p9n:string;
   p10n:string;
   i:integer;
   Path: array [1..10] of string;




   implementation

{$R *.dfm}



procedure TForm7.Button10Click(Sender: TObject);
begin

 if opendialog10.execute then
 image10.Picture.loadfromfile (opendialog10.filename);
 edit10.Clear;
 edit10.Visible:=true;

end;

procedure TForm7.Button11Click(Sender: TObject);
begin
   p1n:=edit1.text;
   p2n:=edit2.text;
   p3n:=edit3.Text;
   p4n:=edit4.Text;
   p5n:=edit5.Text;
   p6n:=edit6.Text;
   p7n:=edit7.Text;
   p8n:=edit8.Text;
   p9n:=edit9.Text;
   p10n:=edit10.Text;



   label1.Caption:=p1n;
   label2.Caption:=p2n;
   label3.Caption:=p3n;
   label4.Caption:=p4n;
   label5.Caption:=p5n;
   label6.Caption:=p6n;
   label7.Caption:=p7n;
   label8.Caption:=p8n;
   label9.Caption:=p9n;
   label10.Caption:=p10n;


   edit1.Visible:=false;
   edit2.Visible:=false;
   edit3.Visible:=false;
   edit4.Visible:=false;
   edit5.Visible:=false;
   edit6.Visible:=false;
   edit7.Visible:=false;
   edit8.Visible:=false;
   edit9.Visible:=false;
   edit10.Visible:=false;

   button1.Visible:=false;
   button2.Visible:=false;
   button3.Visible:=false;
   button4.Visible:=false;
   button5.Visible:=false;
   button6.Visible:=false;
   button7.Visible:=false;
   button8.Visible:=false;
   button9.Visible:=false;
   button10.Visible:=false;


end;












procedure TForm7.Button12Click(Sender: TObject);
  var i: Integer;
begin
 for i:=1 to 10 do
   Path[i]:=OpenDialog[i].FileName;
 Timer1.Enabled:=True;
end;

procedure TForm7.Button13Click(Sender: TObject);
begin

 Timer1.Enabled:=False;

end;

procedure TForm7.Button1Click(Sender: TObject);
begin
 if opendialog1.execute then
 image1.Picture.loadfromfile (opendialog1.filename);
 edit1.Clear;
 edit1.Visible:=true;
 button11.Enabled:=true;
 button2.Enabled:=true;

end;

procedure TForm7.Button2Click(Sender: TObject);
begin
    if opendialog2.execute then
 image2.Picture.loadfromfile (opendialog2.filename);
 edit2.Clear;
 edit2.Visible:=true;
  button3.Enabled:=true;

end;

procedure TForm7.Button3Click(Sender: TObject);
begin
   if opendialog3.execute then
 image3.Picture.loadfromfile (opendialog3.filename);
 edit3.Clear;
 edit3.Visible:=true;
  button4.Enabled:=true;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin
      if opendialog4.execute then
 image4.Picture.loadfromfile (opendialog4.filename);
 edit4.Clear;
 edit4.Visible:=true;
  button5.Enabled:=true;
end;

procedure TForm7.Button5Click(Sender: TObject);
begin
   if opendialog5.execute then
 image5.Picture.loadfromfile (opendialog5.filename);
 edit5.Clear;
 edit5.Visible:=true;
  button6.Enabled:=true;
end;

procedure TForm7.Button6Click(Sender: TObject);
begin
   if opendialog6.execute then
 image6.Picture.loadfromfile (opendialog6.filename);
 edit6.Clear;
 edit6.Visible:=true;
  button7.Enabled:=true;
end;

procedure TForm7.Button7Click(Sender: TObject);
begin
 if opendialog7.execute then
 image7.Picture.loadfromfile (opendialog7.filename);
 edit7.Clear;
 edit7.Visible:=true;
  button8.Enabled:=true;
end;

procedure TForm7.Button8Click(Sender: TObject);
begin
     if opendialog8.execute then
 image8.Picture.loadfromfile (opendialog8.filename);
 edit8.Clear;
 edit8.Visible:=true;
  button9.Enabled:=true;
end;

procedure TForm7.Button9Click(Sender: TObject);
begin
               if opendialog9.execute then
 image9.Picture.loadfromfile (opendialog9.filename);
 edit9.Clear;
 edit9.Visible:=true;
  button10.Enabled:=true;
end;










procedure TForm7.Timer1Timer(Sender: TObject);
var i: Integer;
begin
  if i=10 then i:=0;
  Inc(i);
  Image1.Picture.LoadFromFile(Path[i]);


end;



end.