RichEdit просмотреть и узнать атрибут текста потом выполнить условие

@RaDex · Регистрация: 26.01.2011

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

Умные люди подскажите есть ли такая возможность в программе просмотреть текст в RichEdit1 и если попадается выделенная жирным строка выполнить какое-то условие ?

вообще можно как то узнавать атрибуты какой-то части текста например строки слова буквы ... (не под курсором или выделенной части) а просто искать в тексте, текст с определёнными атрибутами и выполнять в зависимости от атрибута какие-то условия?

@dimafe6 · 27.01.2011, 13:45

Вот, пробуй:

Pascal

procedure TForm3.Button1Click(Sender: TObject);
var i: integer;
begin
for I := 1 to Length(richedit1.Text)do
with richedit1 do
begin
//Выделяем слово такой длиной, как и слово в Едите
selstart:=i;
sellength:=i-(selstart+length(edit1.Text));
//Если выделеное слово такое, какое мы ищем и выделено жирным, то
if seltext= edit1.Text then
if SelAttributes.Style = [fsBold] then
//Делаем его красным
SelAttributes.Color:= clRed;//Здесль можно делать что угодно с искомым словом
end;
end;

Pascal

procedure TForm3.Button2Click(Sender: TObject);
begin
//Сделать выделеное слово жирным
richedit1.SelAttributes.Style := [fsBold];
end;

Ищет слово, заданое в edit1,во всём тексте(richedit1) и если оно выделено жирным то закрашивает его красным.

Вот пример: Primer.rar

@RaDex · 27.01.2011, 18:50 **[ТС]**

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

Вот, пробуй:

Pascal

procedure TForm3.Button1Click(Sender: TObject);
var i: integer;
begin
for I := 1 to Length(richedit1.Text)do
with richedit1 do
begin
//Выделяем слово такой длиной, как и слово в Едите
selstart:=i;
sellength:=i-(selstart+length(edit1.Text));
//Если выделеное слово такое, какое мы ищем и выделено жирным, то
if seltext= edit1.Text then
if SelAttributes.Style = [fsBold] then
//Делаем его красным
SelAttributes.Color:= clRed;//Здесль можно делать что угодно с искомым словом
end;
end;

Pascal

procedure TForm3.Button2Click(Sender: TObject);
begin
//Сделать выделеное слово жирным
richedit1.SelAttributes.Style := [fsBold];
end;

Ищет слово, заданое в edit1,во всём тексте(richedit1) и если оно выделено жирным то закрашивает его красным.

Вот пример: Вложение 60366

Спасибо, буду пробовать

@*~<`PIK`>~* · 27.01.2011, 21:54

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

текст с определёнными атрибутами и выполнять в зависимости от атрибута какие-то условия?

Все равно какой текст, главное чтобы было жирным???

Добавлено через 8 минут
Если да то вот

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=0 to Length(RichEdit1.Text)-1 do
begin
RichEdit1.SelStart:=i;
RichEdit1.SelLength:=1;
if RichEdit1.SelAttributes.Style = [fsBold] then
//çäåñü âàøà ïðîöåäóðà êîòîðàÿ äîëæíà âûïîëíèòñÿ
end;
end;

@dimafe6 · 28.01.2011, 10:25

*~<`PIK`>~*, я выложил почти такой же код. но у меня ищет заданое слово, с заданым атрибутом, а у тебя только жирные буквы...

@RaDex · 03.02.2011, 19:02 **[ТС]**

Спасибо всем откликнувшимся на вопрос, буду разбираться

@*~<`PIK`>~* · 03.02.2011, 20:23

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

*~<`PIK`>~*, я выложил почти такой же код. но у меня ищет заданое слово, с заданым атрибутом, а у тебя только жирные буквы...

Судя по заданию RaDex'a, то какой-то код должен выполнятся если в тексте присутствует жирный текст(любой), а не введенное слово.

Новые блоги и статьи
Как проводить научные вычисления на Python InfoMaster 15.01.2025 Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .	Создание игры типа Minecraft на PyGame/Python: пошаговое руководство InfoMaster 15.01.2025 В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .	Как создать свою первую игру в стиле Doom на Unreal Engine InfoMaster 15.01.2025 Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .	Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .
Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .

@RaDex 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 3
		1
	RichEdit просмотреть и узнать атрибут текста потом выполнить условие 26.01.2011, 18:28. Показов 3148. Ответов 6 Метки нет (Все метки) Умные люди подскажите есть ли такая возможность в программе просмотреть текст в RichEdit1 и если попадается выделенная жирным строка выполнить какое-то условие ? вообще можно как то узнавать атрибуты какой-то части текста например строки слова буквы ... (не под курсором или выделенной части) а просто искать в тексте, текст с определёнными атрибутами и выполнять в зависимости от атрибута какие-то условия? 0

@dimafe6 Sniper 96 / 64 / 4 Регистрация: 28.01.2010 Сообщений: 326
	28.01.2011, 10:25	5
	*~<`PIK`>~*, я выложил почти такой же код. но у меня ищет заданое слово, с заданым атрибутом, а у тебя только жирные буквы... 0

@RaDex 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 3
	03.02.2011, 19:02 [ТС]	6
	Спасибо всем откликнувшимся на вопрос, буду разбираться 0

@~<`PIK`>~ ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ 607 / 387 / 81 Регистрация: 15.12.2009 Сообщений: 753
	03.02.2011, 20:23	7
	Сообщение от dimafe6 *~<`PIK`>~, я выложил почти такой же код. но у меня ищет заданое слово, с заданым атрибутом, а у тебя только жирные буквы... Судя по заданию RaDex*'a, то какой-то код должен выполнятся если в тексте присутствует жирный текст(любой), а не введенное слово. 0