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, то какой-то код должен выполнятся если в тексте присутствует жирный текст(любой), а не введенное слово.

@RaDex 0 / 0 / 0 Регистрация: 26.01.2011 Сообщений: 3
		1
	RichEdit просмотреть и узнать атрибут текста потом выполнить условие 26.01.2011, 18:28. Показов 3132. Ответов 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