Пользуюсь Делфи7.У меня есть три формы, на первой форме я сделала button2,и хочу прописать чтобы она показала форму2.
еще тут пару юнитов есть. . ну в общем вот код, ошибку выбивает Form2.Show;
[Ошибка] Unit1.pas(75): Undeclared identifier: 'Form2'
[Фатальная ошибка] Project1.dpr(7): Could not compile used unit 'Unit1.pas'
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Math;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Randomize;
i:=Random(3);
Case i of
0:Edit1.Text:='Êàì³íü';
1:Edit1.Text:='Íîæèö³';
2:Edit1.Text:='Áóìàãà';
end;
if Edit1.Text='Êàì³íü' then
begin
if Edit2.Text='Êàì³íü' then
Edit3.Text:='ͳ÷èÿ';
if Edit2.Text='Íîæèö³' then
Edit3.Text:='Âè ïðîãðàëè';
if Edit2.Text='Áóìàãà' then
Edit3.Text:='Âè âèãðàëè';
end;
if Edit1.Text='Íîæèö³' then
begin
if Edit2.Text='Êàì³íü' then
Edit3.Text:='Âè âèãðàëè';
if Edit2.Text='Íîæèö³' then
Edit3.Text:='ͳ÷èÿ';
if Edit2.Text='Áóìàãà' then
Edit3.Text:='Âè ïðîãðàëè';
end;
if Edit1.Text='Áóìàãà' then
begin
if Edit2.Text='Êàì³íü' then
Edit3.Text:='Âè ïðîãðàëè';
if Edit2.Text='Íîæèö³' then
Edit3.Text:='Âè âèãðàëè';
if Edit2.Text='Áóìàãà' then
Edit3.Text:='ͳ÷èÿ';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
end;
end.