Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Daria21
1

Выдаются ошибки, надо исправить

18.05.2011, 01:53. Показов 1006. Ответов 8
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Не работает код, выдает ошибки Qualifer "TForm1" is not class or namespace name и Declaration terminated incorrectly. Помогите исправить...
и вопрос что ознает выражение - TForm1 *Form1;


C++
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

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include <iostream.h>
#include <string.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "glGBtn"
#pragma link "RxGrdCpt"
#pragma link "glHShape"
#pragma resource "*.dfm"
TForm1 *Form1;
FILE *fp;
bool pred2=false,pred1=false;
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::OpenClick(TObject *Sender)
{
int i=0, j=0, temp=0,Row=0,Col=0;
//char ct[8];
try
{
if (OpenDialog1->Execute())
 {
 fp=fopen(OpenDialog1->FileName.c_str(), "r");
 fscanf(fp,"%d*%d\n",&Col,&Row);
 StringGrid1->RowCount=Row;
 StringGrid1->ColCount=Col;
 UpDown1->Position=StringGrid1->RowCount;
 Edit1->Text=IntToStr(UpDown1->Position);
 UpDown2->Position=StringGrid2->ColCount;
 Edit2->Text=IntToStr(UpDown2->Position);
 Form1->Height=Form1->Height+24*(-StringGrid1->RowCount+UpDown1->Position);
 Label2->Top=StringGrid1->Top+StringGrid1->DefaultRowHeight*StringGrid1->RowCount-10;
 StringGrid1->Height=24*UpDown1->Position+18;
 Form1->Width=Form1->Width+35*(-StringGrid1->ColCount+UpDown2->Position);
 Open->Left=Open->Left+35*(-StringGrid1->ColCount+UpDown2->Position);
 Save->Left=Save->Left+35*(-StringGrid1->ColCount+UpDown2->Position);
 Button1->Left=Button1->Left+35*(-StringGrid1->ColCount+UpDown2->Position);
 Label1->Left=Label1->Left+35*(-StringGrid1->ColCount+UpDown2->Position);
 Label5->Left=Label5->Left+35*(-StringGrid1->ColCount+UpDown2->Position);
 StringGrid1->Width=35*UpDown2->Position+18;
 Label3->Left=StringGrid1->Left+StringGrid1->DefaultColWidth*StringGrid1->ColCount-10;
 for (j=0;j<StringGrid1->RowCount;j++)
 {
 for (i=0;i<StringGrid1->ColCount;i++)
 {
 if ((i==StringGrid1->ColCount-1)&&(j==StringGrid1->RowCount-1))
 break;
 if (i==StringGrid1->ColCount-1)
 fscanf(fp,"%d\n", &temp);
 else
 fscanf(fp,"%d\t", &temp);
 StringGrid1->Cells[i][j]=IntToStr(temp);
 }
 }
 fclose (fp);
 }
 }
 catch (...)
 {
 Application->MessageBox("Çíà÷åíèÿ íå ââåäåíû èëè ââåäåíû íå ïðàâèëüíî","User - invalid", MB_ICONWARNING | MB_OK);
 }
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::SaveClick(TObject *Sender)
{
 int j=0,i=0;
 try
 {
 if (SaveDialog1->Execute())
 {
 fp=fopen(SaveDialog1->FileName.c_str(), "w");
 fprintf(fp, "%d*%d\n",StringGrid1->ColCount,StringGrid1->RowCount);
 for (j=0;j<StringGrid1->RowCount;j++)
 {
 for (i=0;i<StringGrid1->ColCount;i++)
 {
 if ((i==StringGrid1->ColCount-1)&&(j==StringGrid1->RowCount-1))
 break;
 if (i==StringGrid1->ColCount-1)
 fprintf(fp, "%d\n", StrToInt(StringGrid1->Cells[i][j]));
 else
 fprintf(fp, "%d\t", StrToInt(StringGrid1->Cells[i][j]));
 }
 }
 fclose (fp);
 }
 }
 catch (...)
 {
 Application->MessageBox("Çíà÷åíèÿ íå ââåäåíû èëè ââåäåíû íå ïðàâèëüíî","User - invalid", MB_ICONWARNING | MB_OK);
 }
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::UpDown1Click(TObject *Sender, TUDBtnType Button)
{
if ((UpDown1->Position<=15)&(UpDown1->Position>=3))
{
Form1->Height=Form1->Height+24*(-StringGrid1->RowCount+UpDown1->Position);
StringGrid1->RowCount=UpDown1->Position;
pred1=true;
Edit1->Text=IntToStr(UpDown1->Position);
Label2->Top=StringGrid1->Top+StringGrid1->DefaultRowHeight*StringGrid1->RowCount-10;
StringGrid1->Height=24*UpDown1->Position+18;
Hole->Left=Form1->Width-(Hole->Width/2);
Hole->Top=Form1->Height-(Hole->Height/2);
}
;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
try
{
 if (!pred1)
 if (StrToInt(Edit1->Text)<=15)
 {
 Form1->Height=Form1->Height+24*(-StringGrid1->RowCount+StrToInt(Edit1->Text));
 StringGrid1->RowCount=StrToInt(Edit1->Text);
 UpDown1->Position=StringGrid1->RowCount;
 Label2->Top=StringGrid1->Top+StringGrid1->DefaultRowHeight*StringGrid1->RowCount-10;
 StringGrid1->Height=24*UpDown1->Position+18;
 
 }
 else ShowMessage("Ââåäèòå ÷èñëî îò 0 äî 15!");
 else pred1=false;
 }
catch (...)
{
ShowMessage ("Ââåäèòå öèôðó!!");
return;
}
}
//---------------------------------------------------------------------------
 
 
Project
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
 try
 {
 Application->Initialize();
 Application->CreateForm(__classid(TForm1), &Form1);
 Application->CreateForm(__classid(TForm2), &Form2);
 Application->Run();
 }
 catch (Exception &exception)
 {
 Application->ShowException(&exception);
 }
 catch (...)
 {
 try
 {
 throw Exception("");
 }
 catch (Exception &exception)
 {
 Application->ShowException(&exception);
 }
 }
 return 0;
}
//------
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 18.05.2011, 01:53
Ответы с готовыми решениями:

Надо исправить ошибки в програме
Пожалуста помогите исправить ошибки в програме и переделать ее из С в С++ #include &lt;stdio.h&gt; ...

В PHP7 не выдаются ошибки
Здравствуйте. Так получилось, что установил PHP 7ой версии и в место ошибок у меня просто не...

Определить модуль скорости и ускорения (надо исправить ошибки)
Движение материальной точки на плоскости задано уравнением r (t)=A(i ∙cos(ωt)+j...

При попытке запустить ВПН выдаются ошибки
Добрый день. При попытке запустить ВПН в Windows 8 выдаются такие ошибки: 1) error 720 2) error...

8
1066 / 583 / 87
Регистрация: 03.12.2009
Сообщений: 1,255
18.05.2011, 01:57 2
TForm1 *Form1; //Объявление Form1 как указателя на экземпляр класса типа TForm1
//Указатель – это переменная, значение которой равно значению адреса памяти, по которому лежит
значение другой переменной (косвенная адресация):
1
LK
Заблокирован
18.05.2011, 02:09 3
1. Не работает код, выдает ошибки Qualifer "TForm1" is not class or namespace name и Declaration terminated incorrectly. Помогите исправить...
2. что ознает выражение - TForm1 *Form1;
1. похоже, ошибка не в той части кода, которую вы показали
2. а) это означает, что вы создали указатель на экземпляр класса TForm .
б) что вам нужна умная книга по языку С++ вообще - например, "С.Р.Дэвис. С++ для чайников" (моя любимая книжица ) , и по программе С++ Билдер в частности, например, "А.Я.Архангельский. Программирование в С++ Builder" .
1
Daria21
18.05.2011, 08:46 4
Ошибки показывает на строках
TForm1 *Form1;
void __fastcall TForm1::OpenClick(TObject *Sender);
void __fastcall TForm1::SaveClick(TObject *Sender) ит.д
везде, где есть TForm1
LK
Заблокирован
18.05.2011, 11:17 5
Вы код вместе с обработчиками копировали и вставляли, или создавали обработчики в Инспекторе Объектов , и уже в созданные обработчики вставляли (писАли) код?
0
Прогер
632 / 263 / 15
Регистрация: 17.11.2010
Сообщений: 1,371
Записей в блоге: 2
18.05.2011, 12:37 6
Цитата Сообщение от Daria21 Посмотреть сообщение
void __fastcall TForm1::OpenClick(TObject *Sender);
void __fastcall TForm1::SaveClick(TObject *Sender) ит.д
Ето еще что токое?

прастите но както не знаю я токой оброботчик!
0
LK
Заблокирован
18.05.2011, 12:39 7
Programmer., это кнопки, скорее всего .
0
1066 / 583 / 87
Регистрация: 03.12.2009
Сообщений: 1,255
18.05.2011, 12:52 8
Цитата Сообщение от Programmer. Посмотреть сообщение
Ето еще что токое?

прастите но както не знаю я токой оброботчик!
вот это
C++
1

void __fastcall TForm1::OpenClick(TObject *Sender)
все равно что

C++
1

void __fastcall TForm1::Button1Click(TObject *Sender)
только в Button1 свойство Name поменяли на Open!

Короче переименовали Button1 на Open!))
0
Прогер
632 / 263 / 15
Регистрация: 17.11.2010
Сообщений: 1,371
Записей в блоге: 2
18.05.2011, 14:16 9
Infinity3000,
Вот сейчас понял,
но

Daria21,
Не надо переписовать код! или если перепишевайте смените имена оброботчиков!
0
18.05.2011, 14:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 18.05.2011, 14:16
Помогаю со студенческими работами здесь

substring() и split() - выдаются ошибки в серверном jscript
В чем может быть причина что методы выдают substring() и split() для переменной ошибки в...

Создаю программу "Записная книжка" по инструкции, выдаются ошибки
procedure Tmainform.N2Click(Sender: TObject); begin if savedialog1.Execute then begin...

Найти ошибки в коде и исправить эти ошибки (Наследование)
Вот в общем 3 файла, изучаю наследование на примере односвязного и двусвязного списков: list.h...

Найти ошибки в коде и исправить эти ошибки - C++
Судя по вываливающейся ошибки, идет двойное освобождение памяти. У самого не получается отловить...


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

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru