Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 20.02.2016
Сообщений: 3
1

Компилятор выдает кучу ошибок

29.04.2016, 00:13. Просмотров 331. Ответов 1
Метки нет (Все метки)

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Afqk1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    ListBox1: TListBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   const MaxRec=10;
   Type
   Tsteel=record
   Name:string[10];
   C: real;
   Si:real;
   Mn:real;
   Cr:real;
   end;
var
  Form1: TForm1;
  Steel : array [1..MaxRec] of Tsteel;
  Fr: file of TSteel;
  FileRecName:string;
  NumRecord:integer;
 
 
implementation
 
{$R *.dfm}
 
procedure ClearAll;
begin
Form1.Edit1.Text:='';
Form1.Edit2.Text:='';
Form1.Edit3.Text:='';
Form1.Edit4.Text:='';
Form1.Edit5.Text:='';
NumRecord:=0;
Form1.Label6.Caption:='';
Form1.Label8.Caption:='';
Form1.ListBox1.Clear;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:= 'Êîíòðîëüíûé ïðèìåð';
ClearAll;
end;
 
Function ViewRecord(k:integer):string;
begin
with Steel[k] do
begin
 ViewRecord:=Name+'C:+FloatToStr(C)+';
 ViewRecord:=Name+'Si:+FloatToStr(Si)+';
 ViewRecord:=Name+'Mn:+FloatToStr(Mn)+';
 ViewRecord:=Name+'Cr:+FloatToStr(Cr)+';
 end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
with Steel[ListBox1.ItemIndex+1] do begin
Edit1. Text:=Name;
Edit2.Text:=FloatToStr(C);
Edit3.Text:=FloatToStr(Si);
Edit4.Text:=FloatToStr(Mn);
Edit5.Text:=FloatToStr(Cr);
end;
Label8.Caption:=IntToStr(ListBox1.ItemIndex+1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
NumRecord:=NumRecord+1;
if NumRecord> MaxRec then
MessageDlg ('êîëè÷åñòâî çàïèñåé áîëüøå'+IntToStr(MaxRec),mtError,[mbOk],0)
else
begin with Steel[NumRecord] do
begin
Name:=Edit1.Text;
C:=StrToFloat(Edit2.Text);
Si:= StrToFloat(Edit3.Text);
Mn:=StrToFloat(Edit4.Text);
Cr:=StrToFloat(Edit5.Text);
ListBox1.Items.Add(ViewRecord(NumRecord));
end;
Label6.Caption:=IntToStr(NumRecord);
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if NumRecord>=1 then
begin
with Steel[ListBox1.ItemIndex+1] do
begin
Name:=Edit1.Text;
C:=StrToFloat(Edit2.Text);
Si:= StrToFloat(Edit3.Text);
Mn:=StrToFloat(Edit4.Text);
Cr:=StrToFloat(Edit5.Text);
end;
ListBox1.Items[ListBox1.ItemIndex]:=ViewRecord(ListBox1.ItemIndex+1);
end;
 
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
ClearAll;
end;
 
procedure TForm1.N3Click(Sender: TObject);
var i:integer;
begin
if OpenDialog1.Execute then
begin
ClearAll;
FileRecName:=OpenDialog.FileName;
AssingFile(Fr,FileRecName);
Reset(Fr);
NumRecord:=0;
While not Eof(Fr)
begin
NumRecord:=NumRecord+1;
read(Fr,Steel[NumRecord]);
ListBox1.Items.Add(ViweRecord(NumRecord));
end;
CloseFile(Fr);
Label6. Caption:=ItToStr(NumRecord);
MessageDlg('Ôàéë'+FileRecName+ 'îòêðûòü',mtInformation,[mbOk],0);
end.
Выводит такие ошибки

[Error] Unit1.pas(170): Undeclared identifier: 'OpenDialog'
[Error] Unit1.pas(170): Missing operator or semicolon
[Error] Unit1.pas(171): Undeclared identifier: 'AssingFile'
[Error] Unit1.pas(175): Missing operator or semicolon
[Error] Unit1.pas(178): Undeclared identifier: 'ViweRecord'
[Error] Unit1.pas(181): Undeclared identifier: 'ItToStr'
[Error] Unit1.pas(184): Record, object or class type required
[Error] Unit1.pas(187): 'END' expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2016, 00:13
Ответы с готовыми решениями:

Не записывается в текстовый файл информация, ошибок компилятор не выдает
Здравствуйте, нужно записать текущую дату компьютера в текстовый файл. var MyFile: TextFile; ...

Программа выдает много ошибок
Сделал программу на свою задачу по примеру из учебника объект , поля ,методы . Моя задача : задан...

Компилятор delphi xe5 выдает непонятную мне ошибку
Где ошибка? procedure TForm6.BitBtn1Click(Sender: TObject); var week:string; w:array of...

Компилятор не ругается, но при запуске выдает ошибку о работе с памятью
Здравствуйте! Не могу понять в чем ошибка. Помогите, пожалуйста! Компилятор не ругается, но при...

1
652 / 546 / 238
Регистрация: 26.11.2012
Сообщений: 2,158
29.04.2016, 05:47 2
Цитата Сообщение от kuralai Посмотреть сообщение
OpenDialog.FileName;
-
Цитата Сообщение от kuralai Посмотреть сообщение
OpenDialog1.Execute
Цитата Сообщение от kuralai Посмотреть сообщение
begin
if OpenDialog1.Execute then
begin
ClearAll;
FileRecName:=OpenDialog.FileName;
AssingFile(Fr,FileRecName);
Reset(Fr);
NumRecord:=0;
While not Eof(Fr)
begin
NumRecord:=NumRecord+1;
read(Fr,Steel[NumRecord]);
ListBox1.Items.Add(ViweRecord(NumRecord));
end;
CloseFile(Fr);
Label6. Caption:=ItToStr(NumRecord);
MessageDlg('Ôàéë'+FileRecName+ 'îòêðûòü',mtInformation,[mbOk],0);
три begin, один end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2016, 05:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

При сравнении строк компилятор выдает ошибки, в чем может быть косяк? Заранее признателен
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

При компиляции ошибок нет,но при запуске выдает ошибку. В чем причина?
вот код, скрин ошибки прилагаю unit UGraphEdit1; interface uses Windows, Messages, SysUtils,...

при компиляции выдает что нет ошибок, при запуске самой программы не запускается
Здраствуйте, помогите пожалуйста с программой. при компиляции выдает что нет ошибок, при запуске...

Компилятор выдает кучу ошибок
Здравствуйте!! начал изучать с#. честно переписал программу с книги Троелсена namespace...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.