0 / 0 / 0
Регистрация: 15.04.2018
Сообщений: 80
1

Ошибка Unit1.pas(9): File not found: 'frmMain.dcu'

26.04.2018, 19:46. Показов 1632. Ответов 6
Метки нет (Все метки)

При попытке вставить заставку в программу вылетает такая ошибка.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
  Dialogs, Grids, StdCtrls,
  Forms,
  frmMain  in 'frmMain.pas' {frmMain},
  zastavka in 'zastavka.pas' {frmZastavka};
 
 
type
  TfrmMain = class(TForm)
    lblTema: TLabel;
    lblMatr: TLabel;
    btnDecide: TButton;
    btnClear: TButton;
    btnExit: TButton;
    stgMatr1: TStringGrid;
    stgMatr2: TStringGrid;
    lblResMatr: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure btnClearClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btnDecideClick(Sender: TObject);
    procedure stgMatr1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure stgMatr1Exit(Sender: TObject);
    procedure ebtVectorKeyPress(Sender: TObject; var Key: Char);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmMain: TfrmMain;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
begin
  Application.Initialize;
  frmZastavka:=TfrmZastavka.Create(Application);
  frmZastavka.Show;
  frmZastavka.UpDate;
  While frmZastavka.tmrMain.Enabled do
    Application.ProcessMessages;
  Application.CreateForm(TfrmMain, frmMain);
  frmZastavka.Hide;
  frmZastavka.Free;
  Application.Run;
end.
 
 
procedure TfrmMain.btnClearClick(Sender: TObject);
var
i,j:integer;
begin
for i:=1 to stgMatr1.RowCount do
for j:=1 to stgMatr1.RowCount do
stgMatr1.Cells[i,j]:='0';
 
 
for i:=1 to stgMatr2.ColCount do
for j:=1 to stgMatr2.ColCount do
stgMatr2.Cells[i,j]:='0';
end;
 
procedure TfrmMain.btnExitClick(Sender: TObject);
begin
close;
end;
 
procedure TfrmMain.FormActivate(Sender: TObject);
const
n=500;
var
 i,j : Integer;
begin
 
 for i:=1 to stgMatr1.RowCount do
   stgMatr1.Cells[0,i]:=IntToStr(i);
 for j:=1 to stgMatr1.ColCount do
   stgMatr1.Cells[j,0]:=IntToStr(j);
 for i:=1 to stgMatr2.RowCount do
   stgMatr2.Cells[0,i]:=IntToStr(i);
 for j:=1 to stgMatr2.ColCount do
   stgMatr2.Cells[j,0]:=IntToStr(j);
 
 
for i:=1 to n do
for j:=1 to n do
begin
stgMatr1.Cells[i,j]:='0';
stgMatr2.Cells[i,j]:='0';
end;
end;
 
 
 
procedure TfrmMain.btnDecideClick(Sender: TObject);
var
  i1, i2: integer;
begin
stgMatr2.ColCount := stgMatr1.RowCount;
stgMatr2.RowCount := stgMatr1.ColCount;
for i1 := 1 to stgMatr1.colcount - 1 do
for i2 := 1 to stgMatr1.rowcount - 1 do
stgMatr2.cells[i2, i1] := stgMatr1.cells[i1, i2];
end;
 
 
procedure TfrmMain.stgMatr1KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+']) then
key:=#0;
end;
 
procedure TfrmMain.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+','-']) then
key:=#0;
end;
 
procedure TfrmMain.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+','-']) then
key:=#0;
end;
 
procedure TfrmMain.Button1Click(Sender: TObject);
var
i1,i2,stolb,stroka:integer;
st:string;
begin
stolb:=strtoint(edit1.Text);
stroka:=strtoint(edit2.text);
 
stgMatr1.colcount:=stolb+1;
stgMatr1.RowCount:=stroka+1;
for i1:=1to stgMatr1.ColCount-1 do
begin
stgMatr1.cells[0,i1]:=inttostr(i1);
end;
for i1:=1 to stgMatr1.rowcount-1 do
begin
stgMatr1.cells[i1,0]:=inttostr(i1);
end;
stolb:=strtoint(edit1.Text);
stroka:=strtoint(edit2.Text);
stgMatr2.colcount:=stolb+1;
stgMatr2.RowCount:=stroka+1;
for i1:=1 to stgMatr1.colcount-1 do
begin
stgMatr2.cells[0,i1]:=inttostr(i1);
end;
for i1:=1 to stgMatr1.rowcount-1 do
begin
stgMatr2.cells[i1,0]:=inttostr(i1);
end;
end;
 
 
 
 
 
procedure TfrmMain.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+','-']) then
key:=#0;
end;
 
procedure TfrmMain.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+','-']) then
key:=#0;
end;
 
 
procedure TfrmMain.Edit1Exit(Sender: TObject);
begin
 if StrToInt(Edit1.Text)<1 then
 begin
 showmessage('ERRROR');
 Edit1.SetFocus;
 end;
  if Edit1.Text='' then
 begin
 showmessage('ERRROR');
 Edit1.SetFocus;
 end;
end;
 
procedure TfrmMain.Edit2Exit(Sender: TObject);
begin
 if StrToInt(Edit2.Text)<2 then
 begin
 showmessage('ERRROR');
 Edit2.SetFocus;
 end;
 if Edit2.Text='' then
 begin
 showmessage('ERRROR');
 Edit2.SetFocus;
 end;
end;
 
procedure TfrmMain.stgMatr1Exit(Sender: TObject);
var
i,j,a,d,l,o:integer;
begin
a:=StrToInt(Edit2.Text);
d:=StrToInt(Edit1.Text);
if a>d then
for i:=1 to stgMatr1.RowCount do
for j:=1 to stgMatr1.ColCount do
if stgMatr1.Cells[i,j]='' then
stgMatr1.Cells[i,j]:='0';
{else
for o:=1 to d do
for l:=1 to a do
if stgMatr1.Cells[l,o]='' then
stgMatr1.Cells[l,o]:='0' }
 
 end;
 
procedure TfrmMain.ebtVectorKeyPress(Sender: TObject; var Key: Char);
begin
 if(key in['A'..'z','À'..'ÿ',' ',',','.','=','+','-']) then
key:=#0;
end;
 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2018, 19:46
Ответы с готовыми решениями:

[Fatal Error] Unit1.pas(160): File not found: 'Unit3.dcu'
Unit1.pas(160): File not found: 'Unit3.dcu' Посмотрите пожалуйста архив во вложениях. Большое...

[Fatal Error] Unit1.pas(7): File not found: 'Vcl.Menus.dcu'
Есть программа с исходниками,скачал з инета,ну мне нужно переделать ее.(курсач) Установил Delphi...

[Pascal Fatal Error] Unit1.pas(7): F1026 File not found: 'MySpeedButton.dcu'
Unit1.pas(7): F1026 File not found: 'MySpeedButton.dcu' Посмотрите пожалуйста архив во вложениях....

[Fatal Error] Unit1.pas(26): Could not create output file 'Units\Unit1.dcu'
я столкнулся с проблемой... при создании нового проекта и его компиляции мне вылетает ошибка ...

6
Житель Земли
2992 / 2981 / 391
Регистрация: 26.07.2011
Сообщений: 11,450
Записей в блоге: 1
26.04.2018, 19:50 2
Цитата Сообщение от Dron43 Посмотреть сообщение
frmMain *in 'frmMain.pas' {frmMain},
zastavka in 'zastavka.pas' {frmZastavka};
откуда взялись здесь эти строки, когда они должны быть в файле проекта?
0
0 / 0 / 0
Регистрация: 15.04.2018
Сообщений: 80
26.04.2018, 20:00  [ТС] 3
Цитата Сообщение от DenNik Посмотреть сообщение
откуда взялись здесь эти строки, когда они должны быть в файле проекта?
Так они в файле проекта и лежат
0
Житель Земли
2992 / 2981 / 391
Регистрация: 26.07.2011
Сообщений: 11,450
Записей в блоге: 1
26.04.2018, 20:02 4
а какого тогда они прописаны в файле модуля?

файл проекта, если что - это DPR, имеет формат
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program sample;
 
uses
  Vcl.Forms,
  UnitMain in 'UnitMain.pas' {Form1};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
0
0 / 0 / 0
Регистрация: 15.04.2018
Сообщений: 80
26.04.2018, 20:20  [ТС] 5
Цитата Сообщение от DenNik Посмотреть сообщение
а какого тогда они прописаны в файле модуля?
файл проекта, если что - это DPR, имеет формат
Всё равно выдает ошибки.....Приложил архив
Вложения
Тип файла: rar Архив WinRAR.rar (1.17 Мб, 4 просмотров)
0
Модератор
7953 / 5249 / 2176
Регистрация: 21.01.2014
Сообщений: 22,579
Записей в блоге: 3
26.04.2018, 20:23 6
Да у Вас там полная мешанина: код из dpr перемешан с кодом из pas...
0
0 / 0 / 0
Регистрация: 15.04.2018
Сообщений: 80
26.04.2018, 20:35  [ТС] 7
Цитата Сообщение от D1973 Посмотреть сообщение
Да у Вас там полная мешанина: код из dpr перемешан с кодом из pas...
Я уже совсем запутался
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2018, 20:35
Помогаю со студенческими работами здесь

[Fatal Error] Unit3.pas(7): File not found: 'frxExportXLS.dcu'
Unit3.pas(7): File not found: 'frxExportXLS.dcu' когда f9 вот такое вот выдает че делать...

[Error] Unit1.pas(7): Declaration expected but 'USES' found (в Unit1) коменчу в Unit 2 Uses, другая ошибка:
Unit1.pas(7): Declaration expected but 'USES' found(в Unit1), коменчу в Unit 2 Uses, тогда...

[Error] Unit1.pas(43): Declaration expected but end of file found
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Ошибка: [dcc32 Error] Unit1.pas(150): E2029 '(' expected but '[' found и [dcc32 Error] Unit1.pas(188): E2035 N
2 таких ошибки повторяются в нескольких местах. Код совсем сухой и еще совсем не доделан. Но на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru