E2089 Identifier 'FormCreate' cannot have a type qualifier

@Cooler0k · Регистрация: 24.03.2013

Студворк — интернет-сервис помощи студентам

Подскажите что за ошибка. Скобки вроде все наместе.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <FileCtrl.hpp> // доступ к SelectDirectory
#include <jpeg.hpp> // работа с jpg
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString aPath; // каталог в котором находятся изображения
TSearchRec aSearchRec; // результат поиска файла
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
aPath = " ";  // текущий каталог
FirstPicture(); // показать картинку, которая есть в каталоге программы
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (SelectDirectory("Выберите каталог, в котором находятся фото","", aPath) !=0)
        {
        aPath = aPath + "\\";
    if (FirstPicture() )
        CheckBox -> Enabled = true;
    else
        Label1 -> Caption = " В каталоге нет фото" ;
        }
}
//---------------------------------------------------------------------------
bool _fastcall TForm1::FirstPicture()
{
Image1->Visible = false;
Button2->Enabled = false;
CheckBox->Enabled = false;
CheckBox->Checked = false;
Label1->Caption = " ";
if (FindFirst(aPath+" *.jpg", faAnyFile, aSearchRec) == 0)
{
        Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);
        Image1->Visible = true;
        Label1->Caption = aPath+aSearchRec.Name;
        if (FindNext(aSearchRec) == 0)
        {
                Button2->Enabled = true;
                CheckBox1->Enabled = true;
        }
}
return false;
}
//---------------------------------------------------------------------------
bool _fastcall TForm1::NextPicture()
{
        Image1->Picture->LoadFromFile(aPath+aSearchRec.Name);
        Label1->Caption = aPath+aSearchRec.Name;
        if (FindNext(aSearchRec) !=0)
        {
                Button2->Enabled = false;
                CheckBox1->Enabled = false;
                return false;
        }
        return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
NextPicture();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked)
        Timer1->Enabled = true;
else
        Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if ( !NextPicture())
        Timer1->Enabled = false;
};
}
//---------------------------------------------------------------------------

@volvo · 09.04.2014, 19:40

Где ж на месте? Между 17 и 18 строкой нет скобки, закрывающей конструктор. Она у тебя вона аж где, в самом низу... Это не Шарп...

@Cooler0k · 09.04.2014, 19:56 **[ТС]**

Теперь вместо 1 ошибки, килограмм.

[C++ Error] Unit1.cpp(22): E2268 Call to undefined function 'FirstPicture'
[C++ Error] Unit1.cpp(30): E2268 Call to undefined function 'FirstPicture'
[C++ Error] Unit1.cpp(31): E2451 Undefined symbol 'CheckBox'
[C++ Error] Unit1.cpp(38): E2316 '_fastcall TForm1::FirstPicture()' is not a member of 'TForm1'
[C++ Error] Unit1.cpp(59): E2316 '_fastcall TForm1::NextPicture()' is not a member of 'TForm1'
[C++ Error] Unit1.cpp(73): E2268 Call to undefined function 'NextPicture'
[C++ Error] Unit1.cpp(86): E2268 Call to undefined function 'NextPicture'

Спасибо. Буду разбираться

@SatanaXIII · 10.04.2014, 08:50

Сообщение от Cooler0k

килограмм

Да в .h файле они у вас отсутствуют:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
 
        bool __fastcall FirstPicture(); // Вот это
        bool __fastcall NextPicture();  //  добавьте
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@volvo Супер-модератор 33403 / 21513 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	09.04.2014, 19:40
	Где ж на месте? Между 17 и 18 строкой нет скобки, закрывающей конструктор. Она у тебя вона аж где, в самом низу... Это не Шарп... 0

@Cooler0k 0 / 0 / 0 Регистрация: 24.03.2013 Сообщений: 36
	09.04.2014, 19:56 [ТС]
	Теперь вместо 1 ошибки, килограмм. [C++ Error] Unit1.cpp(22): E2268 Call to undefined function 'FirstPicture' [C++ Error] Unit1.cpp(30): E2268 Call to undefined function 'FirstPicture' [C++ Error] Unit1.cpp(31): E2451 Undefined symbol 'CheckBox' [C++ Error] Unit1.cpp(38): E2316 '_fastcall TForm1::FirstPicture()' is not a member of 'TForm1' [C++ Error] Unit1.cpp(59): E2316 '_fastcall TForm1::NextPicture()' is not a member of 'TForm1' [C++ Error] Unit1.cpp(73): E2268 Call to undefined function 'NextPicture' [C++ Error] Unit1.cpp(86): E2268 Call to undefined function 'NextPicture' Спасибо. Буду разбираться 0