Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 / 1 / 0
Регистрация: 24.05.2019
Сообщений: 42

Перенос текста в Memo на новую строку после пробела

20.03.2020, 10:58. Показов 1139. Ответов 0

Студворк — интернет-сервис помощи студентам
Здравствуйте.
Долго мучился и решил здесь спросить, как сделать перенос слов после каждого пробела, текст берем с txt файла.
Вот код:
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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Visible = false ;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form1->Show();
Form2->Hide();
 
Memo1->Clear();
Edit1->Clear();
Memo1->Visible = false ;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   Memo1->Clear();
   String MyFile = "C:\\Users\\Gamer\\Desktop\\Translate(ver1.4)\\ukr-eng.txt";
   if(!FileExists(MyFile))
     {
        ShowMessage("ôàéë íå çíàéäåíî :( ");
        return;
     }
   TStringList *list = new TStringList;
   TStringList* sl= new TStringList();
   list->LoadFromFile(MyFile);
 
   for(int i = 0; i < list->Count; i++)
 
     if(list->Names[i].UpperCase() == Edit1->Text.UpperCase())
     {
       Memo1->Lines->Add(list->Values[list->Names[i]].Insert("\n\r", ' '));
     }
   delete list;
 
   if(Memo1->Text.Trim().Length() == 0)
   {
     Memo1->Lines->Add("Äàíîãî ñëîâà íåìຠó ñëîâíèêó :( , àëå ìè ïîñòàðàºìîñÿ éîãî äîáàâèòè :) " );
     sl->LoadFromFile("ukr-eng(íå â³äîì³ ñëîâà).txt");
     sl->Add(Edit1->Text);
     sl->SaveToFile("C:\\Users\\Gamer\\Desktop\\Translate(ver1.4)\\ukr-eng(íå â³äîì³ ñëîâà).txt");
     delete sl;
   }
 
     Memo1->Visible = true;
 
}
 
//---------------------------------------------------------------------------
void __fastcall TForm2::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if (Key==VK_RETURN) {
  Button1->Click(); }
 
if (Key==VK_ESCAPE) {
Button2->Click(); }
 
if (Key==VK_F1) {
ShowMessage("òåêñò ïîò³ì ïðèäóìàþ");}
}
//---------------------------------------------------------------------------
вот так выглядит файл:
Привіт=Hi Hello
собака=dog
кіт=cat
літо=summer
друг=friend companion
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.03.2020, 10:58
Ответы с готовыми решениями:

Перенос текста в Memo на новую строку после восьмого символа ";"
подскажите пожалуйста, как после 8-го символа &quot;;&quot; перенести текст в memo на новую строку

Переход на новую строку после пробела
Как организовать переход на новую строку после пробела? Ну например как из строки &quot;10 20 30&quot;, вывести на экран такой вот столбик:...

Скопировать слово после пробела в новую строку
Здравствуйте. У меня вопрос насчет строк. Например у нас есть строка(string), которая состоит из двух слов и между ними пробел. Каким...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.03.2020, 10:58
Помогаю со студенческими работами здесь

Составить программу, которая бы разбивала текст на строки длиной в два слова. Перенос на новую строку осуществить на месте пробела
Составить программу, которая бы разбивала текст на строки длиной в два слова. Перенос на новую строку осуществить на месте пробела

Перенос текста на новую строку
Доброго всем времени суток. Есть форма в последнее поле которой необходимо ввести достаточно большой текст, как сделать так что бы этот...

Перенос текста на новую строку
Здравствуйте. Сейчас пытаюсь наложить текст на изображение, но есть один нюанс. Текст налаживается, все замечательно, но выходит за...

Перенос текста JLabel на новую строку
Здравствуйте, помогите перенести надпись &quot;Дата покупки&quot; на новую строку. Что бы была слева от jTextField_2. Скрин ниже как оно выглядит...

ListView перенос текста на новую строку
Добрый день. Как заставь ListView (List) переносить текс на друю строчку, а не писать все в одну как на скриншоте. Не могу найти...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
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:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru