RichEdit, зачеркивание слов, букв

@serg6789 · Регистрация: 14.01.2019

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

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

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
void __fastcall TForm11::Button1Click(TObject *Sender)
{
k="";
g=RichEdit1->Lines->Strings[0];
for (int i = 1; i < g.Length()+1; i++) {
        if (g[i]!=' ') {
            RichEdit1->SelStart=i;
            RichEdit1->SelLength=1;
        if (RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsStrikeOut) {
            lst->Add(IntToStr(i) ); podcherk=true;
        }
        }}
 
ShowMessage("Зачеркнутые буквы: "+lst->Text);
 
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm11::Button2Click(TObject *Sender)
{
 
RichEdit1->Focused();
if (RichEdit1->SelText.Length()>0) {
     pos=RichEdit1->Lines->Strings[0].Pos(RichEdit1->SelText);
     lon=RichEdit1->SelText.Length();
     RichEdit1->Lines->Strings[0]=RichEdit1->Lines->Strings[0].Insert("*"+Edit2->Text,lon+pos);
     RichEdit1->SelStart=pos-1;
     RichEdit1->SelLength=lon;
     RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
 
}
 
 
 
 
 
   if (podcherk) {
   int a;
   for (int i = 0; i <lst->Count; i++) {
        if (!lst->Strings[i].IsEmpty() && lst->Strings[i]!="\r\n") {
        if (StrToInt(lst->Strings[i])>pos) {
            a=Edit2->Text.Length();
            RichEdit1->SelStart=StrToInt(lst->Strings[i])+a;
            RichEdit1->SelLength=1;
            RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
        }
 
           
   }}
 
    podcherk=false;
  lst->Clear();
  
   }
 
   }
 
//---------------------------------------------------------------------------

@volvo · 23.09.2020, 09:43

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

почему когда я зачеркиваю последний пробел вместе с словом, зачеркивается совсем другое

Нормально зачеркивается последнее слово вместе с пробелом. Главное при этом не цеплять следующий за пробелом перенос строки, вот тогда действительно будет неожиданное поведение.

@serg6789 · 23.09.2020, 09:48 **[ТС]**

volvo, И как его не цеплять ?

Добавлено через 1 минуту

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
void __fastcall TForm11::Button1Click(TObject *Sender)
{
k="";
g=RichEdit1->Lines->Strings[0];
for (int i = 1; i < g.Length(); i++) {
        if (g[i]!=' '|| g[i]==' ') {
            RichEdit1->SelStart=i;
            RichEdit1->SelLength=1;
        if (RichEdit1->SelAttributes->Style==RichEdit1->SelAttributes->Style<<fsStrikeOut) {
            lst->Add(IntToStr(i) ); podcherk=true;
        }
        }}
 
ShowMessage("зачеркнутые буквы: "+lst->Text);
 
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm11::Button2Click(TObject *Sender)
{
RichEdit1->Focused();
if (RichEdit1->SelText.Length()>0) {
     pos=RichEdit1->Lines->Strings[0].Pos(RichEdit1->SelText);
     lon=RichEdit1->SelText.Length();
     Button1->Click();
     RichEdit1->Lines->Strings[0]=RichEdit1->Lines->Strings[0].Insert("*"+Edit2->Text,lon+pos);
     RichEdit1->SelStart=pos-1;
     RichEdit1->SelLength=lon;
     RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
}
   if (podcherk) {
   int a;
   for (int i = 0; i <lst->Count; i++) {
        if (!lst->Strings[i].IsEmpty() && lst->Strings[i]!="\r\n") {
        if (StrToInt(lst->Strings[i])>pos) {
            a=Edit2->Text.Length();
            RichEdit1->SelStart=StrToInt(lst->Strings[i])+a+1;
            RichEdit1->SelLength=1;
            RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
        }
        if (StrToInt(lst->Strings[i])<pos) {
            RichEdit1->SelStart=StrToInt(lst->Strings[i]);
            RichEdit1->SelLength=1;
            RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsStrikeOut;
        }
 
 
   }}
 
    podcherk=false;
  lst->Clear();
  
   }
 
   }

с права на лево, сделал и с лева на право

@volvo · 23.09.2020, 10:04

Ты бы для начала задачу озвучил, а не свое видение ее решения. Что сделать-то нужно?
Вот есть у меня текст в RichEdit, и что? Какой должен быть этот текст, пример текста приведи.

@serg6789 · 23.09.2020, 10:16 **[ТС]**

volvo,
в РичЭдит находится одна строка
Пример строки :Привед метветь, кок дила, шо наваго
Пользователь сам выбирает ошибку, выделяет или слово или букву в слове, нажимает ИСПРАВИТЬ
в Эдит вводит на что исправить нажимает ОК и должен получить следующее:
Привед*Т мет*дветьдь, ~~кок~~*как ди*ела, шо*что ~~наваго~~*случилость?

@volvo · 23.09.2020, 10:25

Прелестно. И как это связано с заданием, которое озвучено в первом посте? Для того, чтобы решить приведенное в 5-ом посте задание, нужно для начала разбить строку на слова, потом проверить каждое слово на наличие в словаре, если оно есть - все нормально, если его нет - значит, ищем в словаре слово с минимальной дистанцией Левенштейна от проверяемого, потом ищем, какие буквы в найденном слове и в проверяемом различны, и только потом, имя уже начало и длину различающейся части, зачеркиваем текст в RichEdit (это очень просто, если перебирать слова от конца к началу, ведь позиция начала слова известна, и известна позиция и длина той части, которую надо зачеркнуть), и добавляем туда новый. А не тупо проходим по всей строке, как это было сделано в первом посте.

Все, что я описал выше, уже сделано? Есть код для нахождения различающихся частей слов?

@serg6789 · 23.09.2020, 11:00 **[ТС]**

volvo, нет , этого нет, но пример это, так, а если в предложении будет так:
Документ № 11178 отправлен в Москву пользователь увидел, что ввел не верно ввел номер документа, и город в который он отправлен
тогда строка поменяется , конечно можно и просто отредактировать, но редактирование должно быть по итогу заверено, и должна быть верная запись, которую вводит пользователь
Документ № ~~11178~~*11179 отправлен в ~~Москву~~*Адлер

Добавлено через 2 минуты

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

Главное при этом не цеплять следующий за пробелом перенос строки

подскажите пожалуйста как это сделать
и возможно ли форматированный текст перенести в StringGrid

@volvo · 23.09.2020, 11:05

Это у тебя и так работает. Просто выделяй слово дабл-кликом на нем, безо всяких пробелов, и жми кнопку:

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

@volvo · 23.09.2020, 11:07

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

и возможно ли форматированный текст перенести в StringGrid

Форматированный - в смысле, с перечеркнутым шрифтом? Я же показывал, как в гриде зачеркивать текст. Все, что для этого понадобится - это запоминать, с какого по какой символы строки были зачеркнуты, и потом рисовать над ними линию. Напрямую текст - нет, нельзя.

@serg6789 · 23.09.2020, 13:07 **[ТС]**

volvo, спасибо огромное, извините за беспокойство

Добавлено через 25 минут

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

Тем более, если нужно подтверждение для документации...

Согласен с вами, грамотность она не особо "привлекает внимание", как неверно записанный номер или не верно записанное действие

Добавлено через 44 минуты
volvo, Еще одна не понятка, подскажите почему так, я начинаю с лева на право первое слово все хорошо зачеркнулось, дабл клик делаю на втором слове и зачеркивается весь текст хотя если делать с конца строки все гуд

Добавлено через 43 минуты
Volvo, спасибо Вам огромное , я допетрил, вопрос решен и закрыт и тема

Новые блоги и статьи Все статьи Все блоги /
Рекурсивные типы в Python py-thonny 07.04.2025 Рекурсивные типы - это типы данных, которые определяются через самих себя или в сочетании с другими типами, которые в свою очередь ссылаются на исходный тип. В мире программирования такие структуры. . .	C++26: Объединение и конкатенация последовательностей и диапазонов в std::ranges NullReferenced 07.04.2025 Работа с последовательностями данных – одна из фундаментальных задач, с которой сталкивается каждый разработчик. C++ прошел длинный путь в эволюции средств для манипуляции коллекциями – от. . .	Обмен данными в микросервисной архитектуре ArchitectMsa 06.04.2025 Когда разработчики начинают погружаться в мир микросервисов, они часто сталкиваются с парадоксальным правилом: "два сервиса не должны делить один источник данных". Эта мантра звучит повсюду в. . .	PostgreSQL в Kubernetes: Автоматизация обслуживания с CNPG Mr. Docker 06.04.2025 Администраторы баз данных сталкиваются с целым рядом проблем при обслуживании PostgreSQL в Kubernetes: как обеспечить правильную репликацию данных, как настроить автоматическое переключение при. . .	Async/await в TypeScript run.dev 06.04.2025 Асинхронное программирование — это подход к разработке программного обеспечения, при котором операции выполняются независимо друг от друга. В отличие от синхронного выполнения, где каждая последующая. . .
Многопоточность в C#: Синхронизация потоков UnmanagedCoder 06.04.2025 Многопоточное программирование стало неотъемлемой частью разработки современных приложений на C#. С появлением многоядерных процессоров возможность выполнять несколько задач параллельно значительно. . .	TypeScript: Классы и конструкторы run.dev 06.04.2025 TypeScript, как статически типизированный язык, построенный на основе JavaScript, привнес в веб-разработку новый уровень надежности и структурированности кода. Одним из важнейших элементов этой. . .	Многопоточное программирование: Rust против C++ golander 06.04.2025 C++ существует уже несколько десятилетий и его поддержка параллелизма постепенно наращивалась со временем. Начиная с C++11, язык получил стандартную библиотеку для работы с потоками, а в последующих. . .	std::vector в C++: от основ к оптимизации производительности NullReferenced 05.04.2025 Для многих программистов знакомство с std::vector происходит на ранних этапах изучения языка, но между базовым пониманием и подлинным мастерством лежит огромная дистанция. Контейнер std::vector. . .	Реляционная модель и правила Кодда: фундамент современных баз данных Codd 05.04.2025 Конец 1960-х — начало 1970-х годов был периодом глубоких трансформаций в области хранения и обработки данных. На фоне растущих потребностей бизнеса и правительственных структур существовавшие на тот. . .

@volvo Супер-модератор 33121 / 21416 / 8220 Регистрация: 22.10.2011 Сообщений: 36,751 Записей в блоге: 9
	23.09.2020, 09:43
	Сообщение от serg6789 почему когда я зачеркиваю последний пробел вместе с словом, зачеркивается совсем другое Нормально зачеркивается последнее слово вместе с пробелом. Главное при этом не цеплять следующий за пробелом перенос строки, вот тогда действительно будет неожиданное поведение. 1

@volvo Супер-модератор 33121 / 21416 / 8220 Регистрация: 22.10.2011 Сообщений: 36,751 Записей в блоге: 9
	23.09.2020, 10:04
	Ты бы для начала задачу озвучил, а не свое видение ее решения. Что сделать-то нужно? Вот есть у меня текст в RichEdit, и что? Какой должен быть этот текст, пример текста приведи. 0

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	23.09.2020, 10:16 [ТС]
	volvo, в РичЭдит находится одна строка Пример строки :Привед метветь, кок дила, шо наваго Пользователь сам выбирает ошибку, выделяет или слово или букву в слове, нажимает ИСПРАВИТЬ в Эдит вводит на что исправить нажимает ОК и должен получить следующее: ПриведТ метдветьдь, ~~кок~~как диела, шочто ~~наваго~~случилость? 0

@volvo Супер-модератор 33121 / 21416 / 8220 Регистрация: 22.10.2011 Сообщений: 36,751 Записей в блоге: 9
	23.09.2020, 10:25
	Прелестно. И как это связано с заданием, которое озвучено в первом посте? Для того, чтобы решить приведенное в 5-ом посте задание, нужно для начала разбить строку на слова, потом проверить каждое слово на наличие в словаре, если оно есть - все нормально, если его нет - значит, ищем в словаре слово с минимальной дистанцией Левенштейна от проверяемого, потом ищем, какие буквы в найденном слове и в проверяемом различны, и только потом, имя уже начало и длину различающейся части, зачеркиваем текст в RichEdit (это очень просто, если перебирать слова от конца к началу, ведь позиция начала слова известна, и известна позиция и длина той части, которую надо зачеркнуть), и добавляем туда новый. А не тупо проходим по всей строке, как это было сделано в первом посте. Все, что я описал выше, уже сделано? Есть код для нахождения различающихся частей слов? 1

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	23.09.2020, 11:00 [ТС]
	volvo, нет , этого нет, но пример это, так, а если в предложении будет так: Документ № 11178 отправлен в Москву пользователь увидел, что ввел не верно ввел номер документа, и город в который он отправлен тогда строка поменяется , конечно можно и просто отредактировать, но редактирование должно быть по итогу заверено, и должна быть верная запись, которую вводит пользователь Документ № ~~11178~~11179 отправлен в ~~Москву~~Адлер Добавлено через 2 минуты Сообщение от volvo Главное при этом не цеплять следующий за пробелом перенос строки подскажите пожалуйста как это сделать и возможно ли форматированный текст перенести в StringGrid 0

@volvo Супер-модератор 33121 / 21416 / 8220 Регистрация: 22.10.2011 Сообщений: 36,751 Записей в блоге: 9
	23.09.2020, 11:05
	Сообщение было отмечено serg6789 как решение Решение Это у тебя и так работает. Просто выделяй слово дабл-кликом на нем, безо всяких пробелов, и жми кнопку: Можно пойти еще дальше, найти код, который будет выделять слово, на котором стоит курсор, тогда достаточно будет просто поставить курсор в нужное место, и нажать на кнопку. А вот частями слово зачеркивать не нужно. Тем более, если нужно подтверждение для документации... 1

@volvo Супер-модератор 33121 / 21416 / 8220 Регистрация: 22.10.2011 Сообщений: 36,751 Записей в блоге: 9
	23.09.2020, 11:07
	Сообщение от serg6789 и возможно ли форматированный текст перенести в StringGrid Форматированный - в смысле, с перечеркнутым шрифтом? Я же показывал, как в гриде зачеркивать текст. Все, что для этого понадобится - это запоминать, с какого по какой символы строки были зачеркнуты, и потом рисовать над ними линию. Напрямую текст - нет, нельзя. 1

@serg6789 4 / 6 / 1 Регистрация: 14.01.2019 Сообщений: 131
	23.09.2020, 13:07 [ТС]
	volvo, спасибо огромное, извините за беспокойство Добавлено через 25 минут Сообщение от volvo Тем более, если нужно подтверждение для документации... Согласен с вами, грамотность она не особо "привлекает внимание", как неверно записанный номер или не верно записанное действие Добавлено через 44 минуты volvo, Еще одна не понятка, подскажите почему так, я начинаю с лева на право первое слово все хорошо зачеркнулось, дабл клик делаю на втором слове и зачеркивается весь текст хотя если делать с конца строки все гуд Добавлено через 43 минуты Volvo, спасибо Вам огромное , я допетрил, вопрос решен и закрыт и тема 0

RichEdit, зачеркивание слов, букв

Решение