Выделение предложений в RichEdit

@Coul92 · Регистрация: 08.05.2012

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

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

@Avazart · 08.05.2012, 22:06

Вот подкидываю идею.Но тут играться надо а мне влом

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
//---------------------------------------------------------------------------
int start=0,stop=0;
unsigned n=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->SelStart=  0;
RichEdit1->SelLength= RichEdit1->Text.Length();
 
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style>>fsBold;
RichEdit1->SelAttributes->Color=RichEdit1->Font->Color;
 
TSearchTypes Stype;
Stype=Stype<< stMatchCase;
 
stop = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
 
RichEdit1->SelStart=  start;
RichEdit1->SelLength= stop;
 
Caption=String(start)+"  "+String(stop);
 
start=stop;
 
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style<<fsBold;
RichEdit1->SelAttributes->Color=clRed;
}
//---------------------------------------------------------------------------

@Coul92 · 08.05.2012, 22:23 **[ТС]**

ну это и я сделал. люди, спасите.

@Drygba · 08.05.2012, 22:25

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

ну это и я сделал. люди, спасите.

может я что то не допонял, но код выложенный Avazart'ом, работает как просили.

@Coul92 · 08.05.2012, 22:33 **[ТС]**

Drygba, он выделяет только первое предложение. При повторном нажатии клавиши он выделяет следующий участок текста ТАКОЙ ЖЕ ДЛИНЫ, КАК ПЕРВОЕ ПРЕДЛОЖЕНИЕ. на этом реакция на нажатие текста прекращается.

@Avazart · 08.05.2012, 22:34

Там надо нормально настроить поиск.

@Coul92 · 08.05.2012, 22:44 **[ТС]**

Avazart, вот это я и пытаюсь уже с месяц. Нужно как-то сделать, чтобы находило первую точку ПОСЛЕ RichEdit->SelText. А то, что ты сделал, я как-то по-другому делал, но результат получался таким же =)

Добавлено через 7 минут
Люди, ну проявите же активность, в пятницу надо сдать курсак. Я нашел готовый, но он консольный, и таких же вариантов, как у меня, много =) А я выпендриться захотел, да не смог =)

@Avazart · 08.05.2012, 23:16

Я чет туплю, на пробуй выпендрежник

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
int start=0,stop=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->SelectAll();
 
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style>>fsBold;
RichEdit1->SelAttributes->Color=RichEdit1->Font->Color;
 
TSearchTypes Stype;
Stype=Stype<< stMatchCase;
 
stop = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
 
RichEdit1->SelStart=  start;
RichEdit1->SelLength= stop-start+1;
 
start=stop+1;
 
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style<<fsBold;
RichEdit1->SelAttributes->Color=clRed;
}
//---------------------------------------------------------------------------

Добавлено через 12 минут
А вообще начинать лучше сначала с консоли

@Coul92 · 09.05.2012, 00:12 **[ТС]**

АААААА ПУСТЬ ТЕБЕ СЧАСТЬЯ ПРИВАЛИТ, СПАСИБО О
Avazart, СПАСИБО ОГРОМНОЕ =)))))

Добавлено через 24 минуты
Avazart, если не трудно, прокомментируй код, я не совсем пойму некоторые из них

@Avazart · 09.05.2012, 00:31

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
int start=0,stop=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// Снимаем предыдущее выделение текста
RichEdit1->SelectAll(); // Выделяем все
// Снимаем окраску и жирность
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style>>fsBold;
RichEdit1->SelAttributes->Color=RichEdit1->Font->Color;
// Множество задающее поиск
TSearchTypes Stype;
Stype=Stype<< stMatchCase;
// Поиск первой точки после позиции start 
stop = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
// Выделяем текст 
RichEdit1->SelStart=  start;// позиция текста
RichEdit1->SelLength= stop-start+1; // длина текста вместе с точкой
 
start=stop+1;// новая стартовая позиция для след. поиска
// Подсветка выделенного текста 
RichEdit1->SelAttributes->Style=
   RichEdit1->SelAttributes->Style<<fsBold;
RichEdit1->SelAttributes->Color=clRed;
}
//---------------------------------------------------------------------------

@Coul92 · 10.05.2012, 01:34 **[ТС]**

Avazart, я сегодня утром вспомнил, разделителями предложений же являются еще и знаки ! и ?. Можешь код переписать для этих случаев? я писал через условия, не получилось.

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
RichEdit1->SelectAll();
 
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style>>fsBold;
RichEdit1->SelAttributes->Color=RichEdit1->Font->Color;
 
TSearchTypes Stype;
Stype=Stype<< stMatchCase;
 
stop = RichEdit1->FindText(".",start,RichEdit1->Text.Length(),Stype);
 
RichEdit1->SelStart=  start;
RichEdit1->SelLength= stop-start+1;
 
start=stop+1;
 
RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
RichEdit1->SelAttributes->Color=clRed;

Добавлено через 4 минуты
и прокомментируй код плиз.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Coul92 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 31

	Выделение предложений в RichEdit 08.05.2012, 21:06. Показов 2576. Ответов 10 Метки нет (Все метки) На форме имеется элемент RichEdit1, в котором находится многострочный текст. По нажатию любой клавиши нужно поочередно выделять каждое предложение текста. 0

@Coul92 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 31
	08.05.2012, 22:23 [ТС]
	ну это и я сделал. люди, спасите. 0

@Coul92 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 31
	08.05.2012, 22:33 [ТС]
	Drygba, он выделяет только первое предложение. При повторном нажатии клавиши он выделяет следующий участок текста ТАКОЙ ЖЕ ДЛИНЫ, КАК ПЕРВОЕ ПРЕДЛОЖЕНИЕ. на этом реакция на нажатие текста прекращается. 0

@Avazart 8484 / 6151 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	08.05.2012, 22:34
	Там надо нормально настроить поиск. 0

@Coul92 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 31
	08.05.2012, 22:44 [ТС]
	Avazart, вот это я и пытаюсь уже с месяц. Нужно как-то сделать, чтобы находило первую точку ПОСЛЕ RichEdit->SelText. А то, что ты сделал, я как-то по-другому делал, но результат получался таким же =) Добавлено через 7 минут Люди, ну проявите же активность, в пятницу надо сдать курсак. Я нашел готовый, но он консольный, и таких же вариантов, как у меня, много =) А я выпендриться захотел, да не смог =) 0

@Coul92 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 31
	09.05.2012, 00:12 [ТС]
	АААААА ПУСТЬ ТЕБЕ СЧАСТЬЯ ПРИВАЛИТ, СПАСИБО О Avazart, СПАСИБО ОГРОМНОЕ =))))) Добавлено через 24 минуты Avazart, если не трудно, прокомментируй код, я не совсем пойму некоторые из них 0