Как добавить в Memo1 текст из Edit1 после определенного слова?

@RustamCTE · Регистрация: 29.06.2012

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

Здравствуйте, дорогие форумчане.
Подскажите пожалуйста, как мне осуществить вставку в текста в мемо1 в определенном месте(в мемо уже есть текст).
Ход действий такой:

При выборе команды из Combobox, текст вводиться в мемо. (пример DSP DOARADIORESINDICATION:
Теперь при вводе данных в edit1, необходимо чтобы данные вводились в мемо в определенном месте.(пример DSP DOARADIORESINDICATION: CN=1

Вот как должна выглядеть вся команда:
DSP DOARADIORESINDICATION: CN=1, SCTID=0, CRRID=1;

Можно сделать так, чтобы выбиралась команда в combobox, потом вводились данные в edit и затем при нажатии кнопки выводилась вся команда, но так не интересно)))
Жду Ваших советов.

@demon_7 · 05.05.2014, 10:44

Я так понял Вам нужно тупо дублировать текст из ComboBox и Edit в Memo?
Или конкретнее что значит выводить текст из Edit в Memo после определенного символа..

@RustamCTE · 05.05.2014, 10:57 **[ТС]**

После выбора команды в combobox, информация вносится в мемо. А затем необходимо в информацию, которая в мемо, в определенном месте(или после определенного слова) внести данные введенные в edit-e.

Добавлено через 5 минут
Например, в мемо после первого действия уже информация типа:
DSP DORADIORESINDICATION:;
Теперь, после DSP DORADIORESINDICATION: необходимо внести данные из Edit типа: CELLID=11, .
Понятно?
В итоге должна быть вся команда типа:
DSP DORADIORESINDICATION: CELLID=11, SEC=0, CAR=23;

@Kulgar · 05.05.2014, 10:57

RustamCTE, если в конец строки мемо добавлять, то обычная конкотенация. Если же нужно какое-то определённое место строки, то через методы AnsiString.
Что-то вроде

C++
1
Memo1->Lines->Strings[i] = Memo1->Lines->Strings[i] + " " + Edit1->Name + "=" + Edit1->Text + ", " + Edit2->Name + "=" + Edit2->Text + ", " + Edit3->Name + "=" + Edit3->Text + ";";

?

@demon_7 · 05.05.2014, 10:59

в ComboBox все команды такого типа ? - "DSP DORADIORESINDICATION:;"
Меня интересует концовка, а именно все команды заканчиваются такой вот конструкцией ? - :;

@RustamCTE · 05.05.2014, 11:08 **[ТС]**

Команды разные, но в combobox они заканчиваются на :;

Добавлено через 1 минуту
Kulgar, спасибо.
Попробую твою конструкцию. Затем отпишусь.

Demon_7, waiting your answer)))

@Kulgar · 05.05.2014, 11:10

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

Команды разные, но в combobox они заканчиваются на :;

Тогда в цикле пройтись:

C++
1
Memo1->Lines->Strings[i].Insert(" " + Edit1->Name + "=" + Edit1->Text,Memo1->Lines->Strings[i].Length() - 1);

@demon_7 · 05.05.2014, 11:32

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

Demon_7, waiting your answer)))

Так Вам же уже подсказали) и я солидарен с Kulgar.
Единственное на что обратил внимание я считал что нужно использовать один Edit, но это не проблема.
Реализаций же масса.

@RustamCTE · 05.05.2014, 12:19 **[ТС]**

Захотел сделать через переменные
Наподобие String s="dsp doradio";
String z=";";

Но как их сложить??
Memo1->Text="s"+"z";
Знаю что не правильно, подскажите пожалуйста как? В гугле не нашел.

@demon_7 · 05.05.2014, 12:26

ну...

C++
1
2
3
String s="dsp doradio";
String z=";";
Memo1->Text=s+z;

а чем Вам не подошли реализации предложенные...

@RustamCTE · 05.05.2014, 12:36 **[ТС]**

Ошибка когда вот так:
Memo1->Text=s+z;

и так тоже

Memo1->Text=(Memo1->Text+AnsiString(s)+AnsiString(z));

Реализации выше, често...не много не понимаю как цикл забить. Вот сделаю сначала добавление текста из combobox в мемо. а потом цикл.
Слабоват я в программировании.
Или хотя попробую через цикл. Времени уйдет больше, но зато правильней будет, да?

@Kulgar · 05.05.2014, 12:39

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

Реализации выше, често...не много не понимаю как цикл забить. Вот сделаю сначала добавление текста из combobox в мемо. а потом цикл.

Так. Стоп. Вам нужно сформировать одну команду из текущей строки в эдите и выбранного комбобокса? И добавить её в конец мемо?

@RustamCTE · 05.05.2014, 12:58 **[ТС]**

Kulgar, в простейшем варианте - да. Я в начале об этом писал. Но не в конец, а полностью текст.

Вот так правильно.
Теперь буду пробовать через цикл)))

C++
1
2
3
4
5
6
7
8
void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
 if (ComboBox1->ItemIndex==0)
 {
 AnsiString k = "DSP CBTSENPARA:";
 AnsiString z = ";";
 Memo1->Text = k+z;  }
}

Спасибо Demon_7.
Kulgar, теперь буду пробовать через цикл, но это будет долго. Я обязательно отпишусь.

@Kulgar · 05.05.2014, 13:03

RustamCTE, приведите пример содержание комбобокса и мемо до нажатия чего-либо.

@RustamCTE · 05.05.2014, 13:07 **[ТС]**

Memo - пустое.
а комбобокс -
DSP CBTSENVPARA
RST CBTSEAC
RST CBTSEMUA
DSP SESSION
DSP DORADIORESINDICATION
DSP CBTSLNKSTAT

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
#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::ComboBox1Click(TObject *Sender)
{
 if (ComboBox1->ItemIndex==0)
 {
 AnsiString k = "DSP CBTSENPARA:";
 AnsiString z = ";";
 Memo1->Text = k+z;  }
}
 
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Memo->Text=
}

Вот весь код))

@demon_7 · 05.05.2014, 13:49

Если я Вас правильно понял то попробуйте так

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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString buff;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
Memo1->Text=ComboBox1->Text;
buff=ComboBox1->Text;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
Memo1->Text=buff+Edit1->Text+";";
}
//---------------------------------------------------------------------------

ComboBox я заполнял через Items в его Properties.

@RustamCTE · 05.05.2014, 14:27 **[ТС]**

Demon_7, спасибо.
Сделал примерно также, но через нажатие кнопки

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (ComboBox1->ItemIndex==0)
{
Memo1->Text="DSP CBTSENVPARA: BTSID="+Edit1->Text+", MTRLGY=MET;";
Edit2->Hide();
Edit3->Hide();
Label1->Hide();
Label2->Hide();
}
if (ComboBox1->ItemIndex==1)
{
Memo1->Text="RST CBTSEAC: BTSID="+Edit1->Text+", OBJTP=ENVCHEST;
Edit2->Hide();
Edit3->Hide();
Label1->Hide();
Label2->Hide();
}
if (ComboBox1->ItemIndex==2)
{
Memo1->Text="RST CBTSEMUA: BTSID="+Edit1->Text+", OBJTP=EMUA;
Edit2->Hide();
Edit3->Hide();
Label1->Hide();
Label2->Hide();
}

Это я сделал самый простой вариант.

Теперь сделаю как написали Вы. Мне он больше подходит.

@Kulgar · 05.05.2014, 14:50

RustamCTE, через метод OnSelect:

C++
1
2
3
4
void __fastcall TForm1::ComboBox1Select(TObject *Sender)
{
      Memo1->Lines->Add(ComboBox1->Text + ": " + Edit1->Text + ";");
}

@RustamCTE · 05.05.2014, 15:15 **[ТС]**

Всем большое спасибо за помощь.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118

	Как добавить в Memo1 текст из Edit1 после определенного слова? 05.05.2014, 10:19. Показов 3147. Ответов 18 Метки нет (Все метки) Здравствуйте, дорогие форумчане. Подскажите пожалуйста, как мне осуществить вставку в текста в мемо1 в определенном месте(в мемо уже есть текст). Ход действий такой: При выборе команды из Combobox, текст вводиться в мемо. (пример DSP DOARADIORESINDICATION: Теперь при вводе данных в edit1, необходимо чтобы данные вводились в мемо в определенном месте.(пример DSP DOARADIORESINDICATION: CN=1 Вот как должна выглядеть вся команда: DSP DOARADIORESINDICATION: CN=1, SCTID=0, CRRID=1; Можно сделать так, чтобы выбиралась команда в combobox, потом вводились данные в edit и затем при нажатии кнопки выводилась вся команда, но так не интересно))) Жду Ваших советов. 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	05.05.2014, 10:44
	Я так понял Вам нужно тупо дублировать текст из ComboBox и Edit в Memo? Или конкретнее что значит выводить текст из Edit в Memo после определенного символа.. 0

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118
	05.05.2014, 10:57 [ТС]
	После выбора команды в combobox, информация вносится в мемо. А затем необходимо в информацию, которая в мемо, в определенном месте(или после определенного слова) внести данные введенные в edit-e. Добавлено через 5 минут Например, в мемо после первого действия уже информация типа: DSP DORADIORESINDICATION:; Теперь, после DSP DORADIORESINDICATION: необходимо внести данные из Edit типа: CELLID=11, . Понятно? В итоге должна быть вся команда типа: DSP DORADIORESINDICATION: CELLID=11, SEC=0, CAR=23; 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	05.05.2014, 10:59
	в ComboBox все команды такого типа ? - "DSP DORADIORESINDICATION:;" Меня интересует концовка, а именно все команды заканчиваются такой вот конструкцией ? - :; 0

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118
	05.05.2014, 11:08 [ТС]
	Команды разные, но в combobox они заканчиваются на :; Добавлено через 1 минуту Kulgar, спасибо. Попробую твою конструкцию. Затем отпишусь. Demon_7, waiting your answer))) 0

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118
	05.05.2014, 12:19 [ТС]
	Захотел сделать через переменные Наподобие String s="dsp doradio"; String z=";"; Но как их сложить?? Memo1->Text="s"+"z"; Знаю что не правильно, подскажите пожалуйста как? В гугле не нашел. 0

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118
	05.05.2014, 12:36 [ТС]
	Ошибка когда вот так: Memo1->Text=s+z; и так тоже Memo1->Text=(Memo1->Text+AnsiString(s)+AnsiString(z)); Реализации выше, често...не много не понимаю как цикл забить. Вот сделаю сначала добавление текста из combobox в мемо. а потом цикл. Слабоват я в программировании. Или хотя попробую через цикл. Времени уйдет больше, но зато правильней будет, да? 0

@Kulgar 511 / 196 / 26 Регистрация: 07.08.2013 Сообщений: 814
	05.05.2014, 13:03
	RustamCTE, приведите пример содержание комбобокса и мемо до нажатия чего-либо. 0

@RustamCTE 3 / 3 / 2 Регистрация: 29.06.2012 Сообщений: 118
	05.05.2014, 15:15 [ТС]
	Всем большое спасибо за помощь. 0

Как добавить в Memo1 текст из Edit1 после определенного слова?

Решение