Security Lab



Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти  
Форум » Для программистов и разработчиков » Системное программирование
Страницы: 1
RSS
Ошибка в Borland C++ 6 (Помогите плс), [Linker Error] Unresolved external 'TForm1::'referenced from D:....obj
 
#1
Это нравится:0Да/0Нет
02.10.2010 13:45:25
Помогите пожайлуста

Ошибка
[Linker Error] Unresolved external 'TForm1::'referenced from D:....obj

Вот текст программы:

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double TotalTime = 0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a=0;
if (Edit1->Text=="5")
a++;
if (Edit2->Text=="7")
a++;
if (Edit4->Text=="2")
a++;
if (Edit6->Text=="3")
a++;
if (Edit8->Text=="6")
a++;
if (Edit9->Text=="4")
a++;
if (Edit12->Text=="4")
a++;
if (Edit13->Text=="6")
a++;
if (Edit14->Text=="5")
a++;
if (Edit15->Text=="9")
a++;
if (Edit16->Text=="1")
a++;
if (Edit19->Text=="9")
a++;
if (Edit21->Text=="2")
a++;
if (Edit23->Text=="1")
a++;
if (Edit25->Text=="8")
a++;
if (Edit27->Text=="5")
a++;
if (Edit28->Text=="2")
a++;
if (Edit29->Text=="4")
a++;
if (Edit32->Text=="7")
a++;
if (Edit35->Text=="1")
a++;
if (Edit36->Text=="3")
a++;
if (Edit39->Text=="3")
a++;
if (Edit40->Text=="4")
a++;
if (Edit41->Text=="6")
a++;
if (Edit42->Text=="1")
a++;
if (Edit43->Text=="7")
a++;
if (Edit46->Text=="1")
a++;
if (Edit47->Text=="6")
a++;
if (Edit50->Text=="3")
a++;
if (Edit53->Text=="4")
a++;
if (Edit54->Text=="8")
a++;
if (Edit55->Text=="4")
a++;
if (Edit57->Text=="5")
a++;
if (Edit59->Text=="9")
a++;
if (Edit61->Text=="2")
a++;
if (Edit63->Text=="7")
a++;
if (Edit66->Text=="8")
a++;
if (Edit67->Text=="1")
a++;
if (Edit68->Text=="4")
a++;
if (Edit69->Text=="5")
a++;
if (Edit70->Text=="3")
a++;
if (Edit73->Text=="6")
a++;
if (Edit74->Text=="9")
a++;
if (Edit76->Text=="8")
a++;
if (Edit78->Text=="7")
a++;
if (Edit80->Text=="5")
a++;
if (Edit81->Text=="1")
a++;
if (a==47)
LabelOtwet->Caption="Подравляем вы выйграли...";
if (a!=47)
LabelOtwet->Caption="Есть ошибки, либо не завершен...";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
exit (0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TotalTime += 0.001 * Timer1 -> Interval;
Edit82 -> Text = TotalTime;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Timer1 -> Enabled = !(Timer1 -> Enabled);
if (Timer1 -> Enabled == true)
Button3 -> Caption = "Пауза";
else
Button3 -> Caption = "Старт";
}
//---------------------------------------------------------------------------
 
 
 
#2
Это нравится:0Да/0Нет
02.10.2010 15:50:34
В С++ Builder иногда появляются "ошибки" в конфигурации проекта. Их можно убрать только ручным редактированием ".bpr" в текстовом редакторе.
Иногда оказывается, что файлы проекта разбросаны по разным папкам.
Проще создать новый проект и перенести в него форму из этого проекта.

Посмотрите что у Вас творится в "Главное меню" -> Project -> View Source.
Изменено: Mity Hiden - 02.10.2010 15:51:28
 
 
 
#3
Это нравится:0Да/0Нет
02.10.2010 16:13:45
Project -> View Source

/---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit2.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
       try
       {
                Application->Initialize();
                Application->CreateForm(__classid(TForm1), &Form1);
                Application->Run();
       }
       catch (Exception &exception)
       {
                Application->ShowException(&exception);
       }
       catch (...)
       {
                try
                {
                        throw Exception("");
                }
                catch (Exception &exception)
                {
                        Application->ShowException(&exception);
                }
       }
       return 0;
}
//---------------------------------------------------------------------------

Пробовал перетаскивать на другую форму ! не помогло (
Подскажите пожалуйста решение!
Изменено: Кирилл Петя - 02.10.2010 16:16:54
 
 
 
#4
Это нравится:0Да/0Нет
02.10.2010 18:19:27
Делайте по шагам
1) Создаёте новый проект(пустой), компилите.
2) Открываете старый, на форме выбираете View as text, копируете в буфер. Открываете новый проект , на форме снова View As text, вставляете из буфера, снова View as Form, компилите.
3) Добавляете методы по одному, компилите.

Ну смотрите, где перестанет компилится.
 
 
 
#5
Это нравится:0Да/0Нет
02.10.2010 19:13:26
View As text вставляю, возвращаюсь к форме, компилирую и ...
Ошибка вылазит...

Project Project1.exe raised exsception class EClassNotFound with message
'Class TLabel not found'.
Process stopped. Use step or Run to continue.

Нажимаю Ок...
Появляюсь в Forms.hpp
Там выделено...

public:
#pragma option push -w-inl
/* TCustomForm.Create */ inline __fastcall virtual TForm(Classes::TComponent* AOwner) : TCustomForm(AOwner) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.CreateNew */ inline __fastcall virtual TForm(Classes::TComponent* AOwner, int Dummy) : TCustomForm(AOwner, Dummy) { }
#pragma option pop
#pragma option push -w-inl
/* TCustomForm.Destroy */ inline __fastcall virtual ~TForm(void) { }
#pragma option pop
 
 
 
#6
Это нравится:0Да/0Нет
02.10.2010 19:28:46
Часть вторая

1) Создаёте новый проект(пустой), компилите.
2) Добавляете на форму по одному объекту(таймер,кномка , мемо, лабел , т.д. всё что используете, лишнее добавите ничего страшного ), компилите.
3) Открываете старый, на форме выбираете View as text, копируете в буфер. Открываете новый проект , на форме снова View As text, вставляете из буфера, снова View as Form, компилите.
Компилятор может начать ругаться, будет появляться окно нужно выбрать помоему remove.

4) Добавляете методы по одному, компилите.

Ну смотрите, где перестанет компилится.
 
 
 
#7
Это нравится:0Да/0Нет
03.10.2010 00:55:37
Вроде както исправил.
Спасибо огромное ! :D
Изменено: Кирилл Петя - 03.10.2010 02:43:35
 
 
 
Страницы: 1
Читают тему