2 события onChange не работают с двумя Edit

@Jenek__89 · Регистрация: 24.01.2010

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

Здравствуйте . Нужно создать программу которая подсчитывает длину гипотенузы в прямоугольном треугольнике. После этого при изменении одного из катетов должен изменяться второй при той же длинне гипотенузы.

Программа работает , если onChange включено в каком то одном Edit , если включить в обоих то программа компилируется без ошибок , но при работе возникает ошибка

вот код:

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
#include <vcl.h>
#pragma hdrstop
 
#include "U_lab4.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
float a,b,gip;
int flag,flas;
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if ((Edit1->Text).Length()==0||(Edit2->Text).Length()==0||
Edit1->Text=='a'||Edit2->Text=='b')
  {
 
 
 
 
 
 
      if((Edit2->Text).Length()==0||Edit2->Text=='b')
      {ShowMessage("Введите катет 1");
       Edit2->SetFocus();
       }
 
 
      if((Edit1->Text).Length()==0||Edit1->Text=='a')
      {ShowMessage("Введите кактет 2");
       Edit1->SetFocus();
 
       }
 
     }
 
 
 
 
     else
{
try
 {a=StrToFloat(Edit1->Text);
 b=StrToFloat(Edit2->Text);
 
 
}
 
 catch (EConvertError &e)
 {ShowMessage("данные не были введены");
  return;
 }
 
}
 
gip=sqrt(b*b+a*a);
 
 
Label4->Caption=FloatToStrF(gip,ffGeneral,7,3);
flag=1;
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
 
if(flag==1&&flas!=3)
{float pp;
 
 
try
 {a=StrToFloat(Edit1->Text);
 
}
 
 catch (EConvertError &e)
 {ShowMessage("данные не были введены");
  return;
 }
 
 
 
float b1=sqrt(gip*gip-a*a);
Edit2->Text=FloatToStr(b1);
flas=2;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{/*
if(flag==1&&flas!=2)
{
try
 {
 b=StrToFloat(Edit2->Text);
 
 
}
 
 catch (EConvertError &e)
 {ShowMessage("данные не были введены");
  return;
 }
 
 
float a1=sqrt(gip*gip-b*b);
Edit2->Text=FloatToStr(a1);
flas=3;
}  */
}

@Lord_Voodoo · 13.11.2010, 12:38

Jenek__89, вам надо преобразорвывать параметр Sender в TEdit и с ним работать, тогда никаких проблем не будет

C++
1
TEdit* edit = dynamic_cast <TEdit*>(Sender);

или хотя бы так:

C++
1
TEdit* edit = (TEdit*)Sender;

@Jenek__89 · 13.11.2010, 15:00 **[ТС]**

Я только начинаю осваивать Builder и не чего не понял.
не могли бы вы поподробнее описать обработчик события onChange и закоментировать строки?

Добавлено через 1 час 56 минут
как использовать переменную edit?

@Evgen88 · 20.11.2010, 10:27

А как тебе такая реализация программы:

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#define sqr(x) (x)*(x)
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double a, b, c;  //измерения треугольника
bool flag=false; //нажата ли кнопка
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  a=StrToFloat(Edit1->Text);
  b=StrToFloat(Edit2->Text);
  c=sqrt(sqr(a)+sqr(b));
  flag=true; //кнопка нажата
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  if(flag==true && Edit1->Text.Length())
  {
    a=StrToFloat(Edit1->Text);
    b=sqrt(sqr(c)-sqr(a));
    Edit2->Text=FloatToStr(b);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
  if(flag==true && Edit2->Text.Length())
  {
    b=StrToFloat(Edit2->Text);
    a=sqrt(sqr(c)-sqr(b));
    Edit1->Text=FloatToStr(a);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
  switch(Key)  //вводим только цифры и десятичный разделитель
  {
   case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7':
   case '8': case '9': case 8:break;
   case ',':
           {
             if(Edit1->Text.Pos(Key)!=0) Key=0;
             break;
           }
   default: Key= 0;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
  switch(Key)  //вводим только цифры и десятичный разделитель
  {
   case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7':
   case '8': case '9': case 8:break;
   case ',':
           {
             if(Edit2->Text.Pos(Key)!=0) Key=0;
             break;
           }
   default: Key= 0;
  }
}
//---------------------------------------------------------------------------

@MikeSoft · 20.11.2010, 14:46

Evgen88,

используйте приведение к типу TEdit параметра Sender и ваш код сократится в два раза.

@Evgen88 · 20.11.2010, 15:36

То есть нужно объявить глобальный объект TEdit *Edit, а в обработчиках событий для эдитов присваивать ему с соотв. преобразованием адрес Sender и использовать его вместо имен эдитов? Я правильно понимаю?

@MikeSoft · 20.11.2010, 16:03

Evgen88, нет, не нужно глобальных указателей.
Прототип обработчика для события OnKeyPress имеет вид:

C++
1
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)

Вы описываете одно и то же для каждого TEdit'a.
Зачем, если можно воспользоваться параметром Sender и назначить одну функцию на все подобные объекты?

Простенький пример:

C++
1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, wchar_t &Key)
{
  if (!(Key >= '0' && Key <= '9')) {
    Key = 0;
    return;
  } else {
    ((TEdit *)Sender)->Text = " <- Введённая цифра";
  }
}

Назначьте этот обработчик для объектов, нуждающихся в одинаковых событиях.

@Evgen88 · 20.11.2010, 19:24

А какой класс нужно использовать для преобразования типов и доступности поля Text?
TEdit является родительским для подобного рода объектов?

@MikeSoft · 20.11.2010, 19:47

Evgen88, немного не понял вашего вопроса.
При размещении компонента вам ясно показывают класс объекта: для поля ввода текста это TEdit.
В случае с заданием функции для события - вы знаете, что Sender будет ссылаться на объект класса TEdit.

Если всё же не уверены, что объект будет именно этого класса, существует ряд проверок, которыми следует воспользоваться.

Например:

C++
1
2
3
4
5
6
7
8
9
10
11
TEdit *Edit = NULL;
try {
  Edit = dynamic_cast <TEdit *> (Sender);
  if (Edit) {
    Edit->Text = "TObject has been successfully casted to TEdit";
    ShowMessage(Edit->Text);
    Edit = NULL;
  }
} catch (...) {
  ShowMessage("Error while casting TObject to TEdit...");
}

@Evgen88 · 20.11.2010, 21:07

Я имел ввиду то, что если например создать универсальную функцию для запрета ввода цифр в объектах классов TEdit, TLabeledEdit, то для доступности поля Text достаточно определить указатель на объект Sender как указатель на требуемый класс (в данном случае TEdit, imho, он родительский для TLabeledEdit): TEdit *Edit=(TEdit *)Sender. И потом данную функцию использовать в OnKeyPress объектов этих классов. Принцип подстановки тут будет работать (везде где можно использовать объект родительского класса, можно использовать и объект класса потомка)? То есть мы в данную функцию передадим Sender и там уже его используем для создания объекта класса обладающего необходимой функциональностью, таким образом мы применим к объекту Sender метод объявленный в классах наследниках где этот метод имеется.

Ваши замечания по-поводу сокращения объема кода касаются и событий EditChange я правильно понял?

@MikeSoft · 20.11.2010, 23:14

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

(в данном случае TEdit, imho, он родительский для TLabeledEdit)

TLabeledEdit порождён из TCustomLabeledEdit, который в свою очередь порождён из TCustomEdit.

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

Ваши замечания по-поводу сокращения объема кода касаются и событий EditChange я правильно понял?

События OnKeyPress и OnChange. Можно оставить по одному обработчику события.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@Jenek__89 1 / 1 / 0 Регистрация: 24.01.2010 Сообщений: 10
	13.11.2010, 15:00 [ТС]
	Я только начинаю осваивать Builder и не чего не понял. не могли бы вы поподробнее описать обработчик события onChange и закоментировать строки? Добавлено через 1 час 56 минут как использовать переменную edit? 0

@MikeSoft 3957 / 1812 / 184 Регистрация: 21.11.2009 Сообщений: 2,540
	20.11.2010, 14:46
	Evgen88, используйте приведение к типу TEdit параметра Sender и ваш код сократится в два раза. 0

@Evgen88 42 / 42 / 12 Регистрация: 04.11.2010 Сообщений: 119
	20.11.2010, 15:36
	То есть нужно объявить глобальный объект TEdit *Edit, а в обработчиках событий для эдитов присваивать ему с соотв. преобразованием адрес Sender и использовать его вместо имен эдитов? Я правильно понимаю? 0

@Evgen88 42 / 42 / 12 Регистрация: 04.11.2010 Сообщений: 119
	20.11.2010, 19:24
	А какой класс нужно использовать для преобразования типов и доступности поля Text? TEdit является родительским для подобного рода объектов? 0

@Evgen88 42 / 42 / 12 Регистрация: 04.11.2010 Сообщений: 119
	20.11.2010, 21:07
	Я имел ввиду то, что если например создать универсальную функцию для запрета ввода цифр в объектах классов TEdit, TLabeledEdit, то для доступности поля Text достаточно определить указатель на объект Sender как указатель на требуемый класс (в данном случае TEdit, imho, он родительский для TLabeledEdit): TEdit Edit=(TEdit )Sender. И потом данную функцию использовать в OnKeyPress объектов этих классов. Принцип подстановки тут будет работать (везде где можно использовать объект родительского класса, можно использовать и объект класса потомка)? То есть мы в данную функцию передадим Sender и там уже его используем для создания объекта класса обладающего необходимой функциональностью, таким образом мы применим к объекту Sender метод объявленный в классах наследниках где этот метод имеется. Ваши замечания по-поводу сокращения объема кода касаются и событий EditChange я правильно понял? 0