Форум программистов, компьютерный форум, киберфорум
C++ Builder: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.93/14: Рейтинг темы: голосов - 14, средняя оценка - 4.93
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 53

Создание пользовательской функции

07.01.2011, 14:25. Показов 2944. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Как заставить работать пользовательскую функцию. На Делфи это делал, а на С++ не знаю. Есть проект, в нем приходится часто делать однотипные действия. Решил сделать функцию.Хочу, чтобы потом можно было использовать эту функцию в других проектах. Создаю модуль,
в нем присоединяю заголовочные для использования компонентов в проекте.
пишу прототип функции.
описываю функцию(не возвр параметры).
в главном файле проекта присоединяю заголовочный модуля.
Далее должно следовать обращение к функции из основного модуля, но пишет
[C++ Error] Unit1.cpp(115): E2268 Call to undefined function 'IzmenenieSQLiVozvrat'
обращение к функции

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
IzmenenieSQLiVozvrat(Query1,"Select* From \
                            pacient_gl.dbf Where N_KARTI Like '"
                   +EditN_Karti->Text+"%' AND FAM Like '"
                   +EditFam->Text+"%' AND IMA Like '"
                   +EditIma->Text+"%' AND OTCH Like '"
                   +EditOtch->Text+"%'","Insert Into\
                    pacient_gl.dbf(N_KARTI,FAM,IMA,\
                    OTCH,ADRES_GOR,ADRES_RAI,ADRES_UL,ADRES_N_D, \
                    ADRES_N_KV,ROGDEN,TEL_D,TEL_SOT,UCHASTOK) \
                     Values('"
                     +MaskEditN_Karti->Text+"','"
                     +MaskEditFam->Text+"','"
                     +MaskEditIma->Text+"','"
                   +MaskEditOtch->Text+"','"
                   +MaskEditGor->Text+"','"
                   +MaskEditRai->Text+"','"
                   +MaskEditUl->Text+"','"
                   +MaskEditD->Text+"','"
                   +MaskEditKv->Text+"','"
                   +MaskEditRogden->Text+"','"
                   +MaskEditD_T->Text+"','"
                   +MaskEditS_T->Text+"','"
                   +MaskEditUch->Text+"')");
файл модуля
//---------------------------------------------------------------------------


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
#pragma hdrstop
 
#include "My.h"
 
 
//---------------------------------------------------------------------------
 
#pragma package(smart_init)
void IzmenenieSQLiVozvrat(TQuery* Query,AnsiString TextSQL1,AnsiString TextSQL2);
 
//--------------------------------------------------------------------------
 
void IzmenenieSQLiVozvrat(TQuery * Query,AnsiString TextSQL1,AnsiString TextSQL2)
{
 Query->Close();
 Query->SQL->Clear();
 Query->SQL->Add(TextSQL2);
 if (TextSQL2.Pos("SELECT")!=-1)
 {
  Query->ExecSQL();
 } else
 {
  Query->Open();
 }
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add(TextSQL1);               //возврат значения
  if (TextSQL1.Pos("SELECT")!=-1)
 {
  Query->ExecSQL();
 } else
 {
  Query->Open();
 }
}
заголовочный модуля

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//---------------------------------------------------------------------------
 
#ifndef MyH
#define MyH
//---------------------------------------------------------------------------
#endif
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Mask.hpp>
#include <ComCtrls.hpp>
Я понимаю, можно конечно добавить и в public основного заголовочного файла и там описать, но тогда в новом проекте придется копировать этот фрагмент по-новой. А так - отдельный модуль - копируй и работай в другом каталоге. А и хотелось понять на-будущее.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
07.01.2011, 14:25
Ответы с готовыми решениями:

Создание пользовательской функции
Прошу Вас! Cоздайте функцию пользователя z=e^-x*корень |x^3 - у^3|корень закр. - x^2/y Очень Вас прошу помочь Заранее благодарен!

Создание пользовательской функции и ее использование
подскажите пожалуйста как создать пользовательскую функцию z= корень из x^2 + y^2. А также использовать эту пользовательскую функцию z=...

Создание пользовательской функции с параметрами
Как в c# windows forms создать функцию со своими параметрами, пробовал стандартным методом: public void myFunction(string...

3
программист С++
 Аватар для sandye51
860 / 600 / 147
Регистрация: 19.12.2010
Сообщений: 2,014
07.01.2011, 16:29
напишите название каждого файла, код которых тут представлен здесь
и что-то я в с++ понятия модуля не слышал.
скорее всего хедеры не так подключили, т.к. функция не распознается
0
0 / 0 / 0
Регистрация: 12.12.2010
Сообщений: 53
07.01.2011, 16:39  [ТС]
Unit1.cpp (обращение к функции)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
IzmenenieSQLiVozvrat(Query1,"Select* From \
                            pacient_gl.dbf Where N_KARTI Like '"
                   +EditN_Karti->Text+"%' AND FAM Like '"
                   +EditFam->Text+"%' AND IMA Like '"
                   +EditIma->Text+"%' AND OTCH Like '"
                   +EditOtch->Text+"%'","Insert Into\
                    pacient_gl.dbf(N_KARTI,FAM,IMA,\
                    OTCH,ADRES_GOR,ADRES_RAI,ADRES_UL,ADRES_N_D, \
                    ADRES_N_KV,ROGDEN,TEL_D,TEL_SOT,UCHASTOK) \
                     Values('"
                     +MaskEditN_Karti->Text+"','"
                     +MaskEditFam->Text+"','"
                     +MaskEditIma->Text+"','"
                   +MaskEditOtch->Text+"','"
                   +MaskEditGor->Text+"','"
                   +MaskEditRai->Text+"','"
                   +MaskEditUl->Text+"','"
                   +MaskEditD->Text+"','"
                   +MaskEditKv->Text+"','"
                   +MaskEditRogden->Text+"','"
                   +MaskEditD_T->Text+"','"
                   +MaskEditS_T->Text+"','"
                   +MaskEditUch->Text+"')");
мой модуль My.cpp

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
#pragma hdrstop
 
#include "My.h"
 
 
//---------------------------------------------------------------------------
 
#pragma package(smart_init)
void IzmenenieSQLiVozvrat(TQuery* Query,AnsiString TextSQL1,AnsiString TextSQL2);
 
//--------------------------------------------------------------------------
 
void IzmenenieSQLiVozvrat(TQuery * Query,AnsiString TextSQL1,AnsiString TextSQL2)
{
 Query->Close();
 Query->SQL->Clear();
 Query->SQL->Add(TextSQL2);
 if (TextSQL2.Pos("SELECT")!=-1)
 {
  Query->ExecSQL();
 } else
 {
  Query->Open();
 }
  Query->Close();
  Query->SQL->Clear();
  Query->SQL->Add(TextSQL1);               //возврат значения
  if (TextSQL1.Pos("SELECT")!=-1)
 {
  Query->ExecSQL();
 } else
 {
  Query->Open();
 }
}

заголовочный моего модуля My.h


C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//---------------------------------------------------------------------------
 
#ifndef MyH
#define MyH
//---------------------------------------------------------------------------
#endif
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <DB.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <Grids.hpp>
#include <DBCtrls.hpp>
#include <Mask.hpp>
#include <ComCtrls.hpp>
0
программист С++
 Аватар для sandye51
860 / 600 / 147
Регистрация: 19.12.2010
Сообщений: 2,014
07.01.2011, 17:03
allmaestro, надо чтобы в "Unit1.cpp" было #include "My.cpp";
не понятно зачем вам файл "My.h", с таким же успехом все include'ы можно было написать в "My.cpp"
и если уж следовать принципам ООП (которым, в данном случае, не пахнет), то в .h надо объявление функции, а в .cpp реализацию
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.01.2011, 17:03
Помогаю со студенческими работами здесь

Создание и вызов пользовательской функции
Создаю пользовательскую функцию применения границ ячеек и пытаюсь вызвать ее с аргументом. Выдает ошибку Option Explicit Public...

Создание пользовательской функции в MathCAD 11
Доброго форумчане и уни, пытаюсь написать простенькую функцию для mathcad 11 (более шустрая версия) почитав статью на хабре и примеры , ...

Создание пользовательской функции в Excel
Помогите решить данную задачу в Excel используя Visual Basic (ALT+F11) Вот типа того: Function stom(a, b) If a &gt; 10 Then stom =...

Создание пользовательской функции в Excel, VBA
Добрый день. Столкнулся с проблемой создания пользовательской функции в MS Excel, используя VBA. Если я правильно понял, это и есть...

Создание пользовательской функции по нахождению суммы за квартал
Уважаемые господа, уже как месяц активно практикуюсь в написании кода в VB (в формах). Более или мене разобрался. Теперь очередь дошла до...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru