Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.04.2014, 12:44   #11
JuliaGood
Пользователь
 
Регистрация: 30.04.2014
Сообщений: 14
По умолчанию

удалила ситуация ухудшилась, ругается на { и на строки где открываем с компьютера
[C++ Error] Unit1.cpp(82): E2206 Illegal character '\' (0x5c)
[C++ Error] Unit1.cpp(82): E2228 Too many error or warning messages
[C++ Error] Unit1.cpp(81): E2316 '_fastcall TForm1::Button8Click(TObject *)' is not a member of 'TForm1'
[C++ Error] Unit1.cpp(67): E2316 '_fastcall TForm1::Button6Click(TObject *)' is not a member of 'TForm1'
и тд
JuliaGood вне форума
Старый 30.04.2014, 12:54   #12
DpolenST
Форумчанин
 
Регистрация: 28.09.2013
Сообщений: 115
По умолчанию

Надо было внимательнее удалять...
Unit1.h сейчас должен выглядеть так

Код:
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TStaticText *StaticText1;
        TStaticText *StaticText2;
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TButton *Button4;
        TButton *Button5;
        TButton *Button6;
        TButton *Button7;
        TButton *Button8;
        TButton *Button9;
        TButton *Button10;
        TButton *Button11;
        void __fastcall Button11Click(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
        void __fastcall Button5Click(TObject *Sender);
        void __fastcall Button6Click(TObject *Sender);
        void __fastcall Button7Click(TObject *Sender);
        void __fastcall Button8Click(TObject *Sender);
        void __fastcall Button9Click(TObject *Sender);
        void __fastcall Button10Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
В общем согласен с Bugrimov. Вам будет полезно создать все заново, хотя бы для практики.
Что бы еще такого сделать, чтобы ничего не делать?
DpolenST вне форума
Старый 30.04.2014, 13:26   #13
JuliaGood
Пользователь
 
Регистрация: 30.04.2014
Сообщений: 14
По умолчанию

Создала новый проект
ругается опять на строчки с ссылками запуска демо-версии и откритием файла .pdf
Код:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Math.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form3->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form5->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
Form6->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
Form7->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
SheellExecute(Handle,"open","D:\программа\CLIPS.exe",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
SheellExecute(Handle,"open","D:\программа\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\пдф\пример.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Form8->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
Form9->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------

Последний раз редактировалось JuliaGood; 30.04.2014 в 13:30.
JuliaGood вне форума
Старый 30.04.2014, 13:30   #14
Bugrimov
C/C++, Java
Участник клуба
 
Аватар для Bugrimov
 
Регистрация: 28.03.2012
Сообщений: 1,679
По умолчанию

Юля читайте пост от DpolenST.
"Keep it simple" - придерживайтесь простоты!
Уильям Оккам - "Не следует множить сущее без необходимости"
Сложность - враг простоты и удобства!
Bugrimov вне форума
Старый 30.04.2014, 13:39   #15
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Правильно ругается. Поменяй SheellExecute на ShellExecute, и удвой значки \ в кавычках. В обоих местах. )
Son Of Pain вне форума
Старый 30.04.2014, 13:50   #16
JuliaGood
Пользователь
 
Регистрация: 30.04.2014
Сообщений: 14
По умолчанию

Я Вам всем благодарна, работает!Буду делать дизайн и остальные формы программировать!!! Если что не судите строго! Спасибо всем огромное! Если возникнут вопросы я Вам напишу! СПАСИБО!
JuliaGood вне форума
Старый 11.05.2014, 09:21   #17
JuliaGood
Пользователь
 
Регистрация: 30.04.2014
Сообщений: 14
По умолчанию

Ребята помогите найти ошибку
Код:
//-------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if (Imageflag)
      Image1->Visible=!(Image1->Visible);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Imageflag=!(Imageflag);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CLIPS1Click(TObject *Sender)
{
ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Разработка экспертных систем. Среда CLIPS.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)
{
ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_1.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N21Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_2.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N31Click(TObject *Sender)
{
   ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_3.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N41Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_4.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N51Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_5.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N61Click(TObject *Sender)
{
    ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_6.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N71Click(TObject *Sender)
{
     ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_7.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N81Click(TObject *Sender)
{
 ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Лабораторная_работа_8.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AutoExpert1Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\пример AutoExpert.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Пример__РОБОТ_и_ЯЩИК.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)
{
 ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Пример_Газированная_вода.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)
{
     ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Пример_Конференция.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
    ShellExecute(Handle,"open","D:\\Clips\\РАЗРАБОТКА ЭКСПЕРТНЫХ СИСТЕМ\\Пример_Резистор.pdf",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\CHM\\Clips.chm",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  ShellExecute(Handle,"open","D:\\Clips\\CLIPS.exe",NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
Form1->Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Label2Click(TObject *Sender)
{
ShellExecute(Form1->Handle,"open",Label2->Caption.c_str(),NULL,NULL,SW_RESTORE);
}
//---------------------------------------------------------------------------
JuliaGood вне форума
Старый 11.05.2014, 09:33   #18
JuliaGood
Пользователь
 
Регистрация: 30.04.2014
Сообщений: 14
По умолчанию

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <jpeg.hpp>
#include "Unit1.h"
#include "Math.hpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString aPath;
TSearchRec aSearchRec;
boolean Imageflag=True;
//---------------------------------------------------------------------------

ошибка вот такая [Linker Error] Unresolved external '__fastcall TForm1::Image1Click(System::TObject *)' referenced from D:\CLIPS\UNIT1.OBJ
JuliaGood вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
FormCloseQuery по нажатию кнопки bulldog5293 Общие вопросы Delphi 3 17.10.2011 15:37
ходим по RadioButton по нажатию кнопки gvozdkoff Общие вопросы Delphi 5 11.12.2010 10:36
Открывать/создавать папку по нажатию на Button Akemi Общие вопросы Delphi 5 01.09.2010 19:47
Сортировка по нажатию кнопки Nate-p Microsoft Office Access 2 25.06.2008 08:35
Картинка появляется по нажатию кнопки! MAKEDON Общие вопросы Delphi 3 13.12.2007 20:17