Паскаль АБС

[Alena Saxar]

Сделала Калькулятор, все работало. Сохранила в папку. Хотела проверить, открыла этот файл, выдает ошибку. Помогите, сил больше нету(((((

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
Form1 = class(Form)
procedure button1_Click(sender: Object; e: EventArgs);
procedure button2_Click(sender: Object; e: EventArgs);
procedure button3_Click(sender: Object; e: EventArgs);
procedure button4_Click(sender: Object; e: EventArgs);
procedure button5_Click(sender: Object; e: EventArgs);
procedure button6_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
internal
{$resource Unit1.Form1.resources}
label1: &Label;
textBox1: TextBox;
label2: &Label;
textBox2: TextBox;
label3: &Label;
textBox3: TextBox;
button2: Button;
button3: Button;
button4: Button;
button5: Button;
button6: Button;
button1: Button;
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;

implementation

procedure Form1.button1_Click(sender: Object; e: EventArgs);
var a,b,c: integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a+b;
textbox3.Text:=inttostr(c);
end;

procedure Form1.button2_Click(sender: Object; e: EventArgs);
var a,b,c: integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a-b;
textbox3.Text:=inttostr(c);
end;

procedure Form1.button3_Click(sender: Object; e: EventArgs);
var a,b,c: integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a*b;
textbox3.Text:=inttostr(c);
end;

procedure Form1.button4_Click(sender: Object; e: EventArgs);
var a,b,c: integer;
begin
a:=strtoint(textbox1.Text);
b:=strtoint(textbox2.Text);
c:=a div b;
textbox3.Text:=inttostr(c);

end;

procedure Form1.button5_Click(sender: Object; e: EventArgs);
var a,c: integer;
begin
a:=strtoint(textbox1.Text);
c:=a*a;
textbox3.Text:=inttostr(c);
end;

procedure Form1.button6_Click(sender: Object; e: EventArgs);
var a,c: real;
begin
a:=strtoint(textbox1.Text);
c:=sqrt(a);
textbox3.Text:=floattostr(c);
end;

end.


Ошибка калькулятор 2.pas(30) : Директива компилятора $include: нельзя открыть файл 'Unit1.Form1.inc'

[macomics]

Надо исправить названия файлов в директивах $include
Правильные названия файлов см. в папке сохранения.