Перевод в словесную форму

@NextGen25 · Регистрация: 01.03.2015

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

Перестали работать кнопка backspace
Не понимаю что ввести в Button 10 чтобы он удалял с поля edit
и самое главное как переделать чтобы вывод был не в label а в Memo

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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
try
    {
        int num = Edit1->Text.ToInt();
        ToText(num);
    }
    catch(...)
    {
 
    }
}
 
String __fastcall ToLowerCase(String str, bool NotUse)
{
    return NotUse ? str : AnsiLowerCase(str);
}
 
//---------------------------------------------------------------------------
     void __fastcall TForm1::ToText(int Number)
{
    String Group[4][3] = {{"тысяча ",   "тысячи ",    "тысяч "},
                  {"миллион ",  "миллиона ",  "миллионов "},
                  {"миллиард ", "миллиарда ", "миллиардов "},
                  {"триллион ", "триллиона ", "триллионов "}};
 
    String All[3][10] = {{"", "Один ", "Два ", "Три ", "Четыре ", "Пять ", "Шесть ", "Семь ", "Восемь ", "Девять "},
                 {"", "", "Двадцать ","Тридцать ","Сорок ","Пятьдесят ","Шестьдесят ","Семдесят ","Восемдесят ","Девяносто "},
                 {"","Сто ","Двести ", "Тристо ", "Четыресто ", "Пятьсот ", "Шестьсот ", "Семьсот ","Восемсот ","Девятсот "}};
 
    String El_Nine[10] = { "Десять ",    "Одиннадцать ", "Двенадцать ", "Тринадцать ",   "Четырнадцать ",
                   "Пятнадцать ", "Шестнадцать ", "Семнадцать ", "Восемнадцать ", "Девятнадцать " };
 
    String NumStr = IntToStr(Number); //Number;
    int NumLength = NumStr.Length();
    int Groups = (NumLength-1)/3;
    String str = "";
    for (int i = Groups; i>=0; i--)
    {
        int k = (i==Groups ? NumLength - Groups*3 : 3);
        String NOG_Str = NumStr.SubString(NumLength+1-i*3-k,k);
        String strgr="";
 
        for (int j = 1; j<=k ; j++)
        {
            if (j==k-1 && NOG_Str[j] == '1')
            {
                strgr += ToLowerCase(El_Nine[StrToInt(NOG_Str[k])], i==Groups && j==1);
                break;
            }
            else 
            {
                if (i==1 && j==k && NOG_Str[j] == '1') strgr += ToLowerCase("????", i==Groups && j==1);
                else if (i==1 && j==k && NOG_Str[j] == '2') strgr += ToLowerCase("???", i==Groups && j==1);
                else strgr += ToLowerCase(All[k-j][StrToInt(NOG_Str[j])], i==Groups && j==1);
            }
        }
        String grName = "";
        if (i>0 && NOG_Str.ToInt() > 0)
        {
            int LOG = NOG_Str.ToInt()%100;
            if (LOG > 10 && LOG < 19 ) grName = Group[i-1][2];
            else if (LOG%10 == 1) grName = Group[i-1][0];
            else if (LOG%10 > 1 && LOG%10 < 5) grName = Group[i-1][1];
            else grName = Group[i-1][2];
        }
        str+=strgr + grName;
    }
        
    Label1->Caption = str;
}
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key < '0') || (Key > '9')) Key = NULL;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = "1" ;        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text = "2" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit1->Text = "3" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text = "4" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Edit1->Text = "5" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Edit1->Text = "6" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Edit1->Text = "7" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Edit1->Text = "8" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Edit1->Text = "9" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

@BRcr · 01.04.2015, 19:14

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

как переделать чтобы вывод был не в label а в Memo

C++
1
2
//Label1->Caption = str;
memo->Lines->Add( str );

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

что ввести в Button 10 чтобы он удалял с поля edit

C++
1
Edit1->Text = "";

А вообще, такая туча однотипных обработчиков не есть хорошо. Просится один обработчик для всех кнопок, тк циферки можно и из имени кнопки вытаскивать.

@NextGen25 · 01.04.2015, 20:36 **[ТС]**

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

Edit1->Text = "";

Ввожу к примеру с клавиатуры 123, а потом нажимаю button 10 (стереть) а он ошибку(
Project Project1.exe raised exception class EConvertError with message is not a valid integer value. Process stopped. Use Step or Run to continue" ошибка в том что между скобка " " пусто что туда поставить?
А с memo всё супер кроме того что, когда водишь большее значение к примеру 1 один потом добавляешь 2 он скидывает на новую строчку а старую не удаляет(
Большое спасибо за те 2 кода)

@NextGen25 · 01.04.2015, 21:11 **[ТС]**

Проблема вот в чём, не показывает main menu хотя всё в него уже вписывал и в код тоже, memo выводит всё но как сделать чтобы показывал всё только на первой строчке , а не перекидывал на вторую?
и последнее Button 10 это кнопка стереть когда там такой код Edit1->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
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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
---------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
try
    {
        int num = Edit1->Text.ToInt();
        ToText(num);
    }
    catch(...)
    {
 
    }
}
 
String __fastcall ToLowerCase(String str, bool NotUse)
{
    return NotUse ? str : AnsiLowerCase(str);
}
 
//---------------------------------------------------------------------------
     void __fastcall TForm1::ToText(int Number)
{
    String Group[2][3] = {{"òûñÿ÷à ",   "òûñÿ÷è ",    "òûñÿ÷ "},
                  {"ìèëëèîí ",  "ìèëëèîíà ",  "ìèëëèîíîâ "}};
 
    String All[3][10] = {{"", "Îäèí ", "Äâà ", "Òðè ", "×åòûðå ", "Ïÿòü ", "Øåñòü ", "Ñåìü ", "Âîñåìü ", "Äåâÿòü "},
                 {"", "", "Äâàäöàòü ","Òðèäöàòü ","Ñîðîê ","Ïÿòüäåñÿò ","Øåñòüäåñÿò ","Ñåìäåñÿò ","Âîñåìäåñÿò ","Äåâÿíîñòî "},
                 {"","Ñòî ","Äâåñòè ", "Òðèñòî ", "×åòûðåñòî ", "Ïÿòüñîò ", "Øåñòüñîò ", "Ñåìüñîò ","Âîñåìñîò ","Äåâÿòñîò "}};
 
    String El_Nine[10] = { "Äåñÿòü ",    "Îäèííàäöàòü ", "Äâåíàäöàòü ", "Òðèíàäöàòü ",   "×åòûðíàäöàòü ",
                   "Ïÿòíàäöàòü ", "Øåñòíàäöàòü ", "Ñåìíàäöàòü ", "Âîñåìíàäöàòü ", "Äåâÿòíàäöàòü " };
 
    String NumStr = IntToStr(Number); //Number;
    int NumLength = NumStr.Length();
    int Groups = (NumLength-1)/3;
    String str = "";
    for (int i = Groups; i>=0; i--)
    {
        int k = (i==Groups ? NumLength - Groups*3 : 3);
        String NOG_Str = NumStr.SubString(NumLength+1-i*3-k,k);
        String strgr="";
 
        for (int j = 1; j<=k ; j++)
        {
            if (j==k-1 && NOG_Str[j] == '1')
            {
                strgr += ToLowerCase(El_Nine[StrToInt(NOG_Str[k])], i==Groups && j==1);
                break;
            }
            else 
            {
                if (i==1 && j==k && NOG_Str[j] == '1') strgr += ToLowerCase("????", i==Groups && j==1);
                else if (i==1 && j==k && NOG_Str[j] == '2') strgr += ToLowerCase("???", i==Groups && j==1);
                else strgr += ToLowerCase(All[k-j][StrToInt(NOG_Str[j])], i==Groups && j==1);
            }
        }
        String grName = "";
        if (i>0 && NOG_Str.ToInt() > 0)
        {
            int LOG = NOG_Str.ToInt()%100;
            if (LOG > 10 && LOG < 19 ) grName = Group[i-1][2];
            else if (LOG%10 == 1) grName = Group[i-1][0];
            else if (LOG%10 > 1 && LOG%10 < 5) grName = Group[i-1][1];
            else grName = Group[i-1][2];
        }
        str+=strgr + grName;
    }
        
   Memo1->Lines->Add( str );
}
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key < '0') || (Key > '9')) Key = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = "1" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Text = "2" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Edit1->Text = "3" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Edit1->Text = "4" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Edit1->Text = "5" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Edit1->Text = "6" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
Edit1->Text = "7" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
Edit1->Text = "8" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
Edit1->Text = "9" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button11Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
      Edit1->Text = "0" ;
}
//---------------------------------------------------------------------------

@BRcr · 01.04.2015, 21:12

Во-первых. EConvertError - значит, где-то конвертируешь из текста в число. А пустая строка в число никак конвертироваться не может. Это ошибка логики.

Во-вторых, чтобы в мемо все отображалось, как тебе надо, работай со строками мемо. Где надо - удаляй, где надо - пиши в последнюю строку без переноса на новую. И копипаста тебе в этом не помощник, надо еще и думать.

@NextGen25 · 01.04.2015, 22:05 **[ТС]**

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

И копипаста тебе в этом не помощник, надо еще и думать.

Спасибо)

@BRcr · 02.04.2015, 15:44

NextGen25, не нужно клепать новых тем, чтобы спросить то же самое.

Насчет main menu - выкладывай проект целиком, так ничего не понятно. И в коде твоем нет ни малейшего упоминания каких бы то ни было меню...

Насчет вывода в мемо:

C++
1
2
3
4
5
    // либо так:
    Memo1->Lines->Strings[ 0 ] = memo_1->Lines->Strings[ 0 ] + str;
    // либо так:
    Memo1->Lines->Strings[ 0 ] = str;
    // ибо ты так и не объяснил, чего хочешь достичь...

Насчет ошибки конвертации:

C++
1
2
3
4
5
    if ( !Edit1->Text.IsEmpty( ) )
    {
        int num = Edit1->Text.ToInt( );
        ToText( num );
    }

Или использовать вместо этого такие функции, как TryStrToInt() и StrToIntDef().

Насчет backspace:

C++
1
2
3
4
    if ( ( ( Key < '0' ) || ( Key > '9' ) ) && Key != VK_BACK )
    {
        Key = NULL;
    }

@NextGen25 · 06.04.2015, 18:47 **[ТС]**

Большое спасибо тебе, просто огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	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 и. . .

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	01.04.2015, 21:12
	Во-первых. EConvertError - значит, где-то конвертируешь из текста в число. А пустая строка в число никак конвертироваться не может. Это ошибка логики. Во-вторых, чтобы в мемо все отображалось, как тебе надо, работай со строками мемо. Где надо - удаляй, где надо - пиши в последнюю строку без переноса на новую. И копипаста тебе в этом не помощник, надо еще и думать. 1

@NextGen25 2 / 2 / 3 Регистрация: 01.03.2015 Сообщений: 131
	06.04.2015, 18:47 [ТС]
	Большое спасибо тебе, просто огромное спасибо!!!!!!!!!!!!!!!!!!!!!!! 0

Перевод в словесную форму

Решение