По очереди раскрасить строки RichEdit в красный цвет

@Dima-nk · Регистрация: 23.04.2013

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

Мне надо по очереди раскрасить строки richedit в красный. Делаю так:

Delphi

for i:=0 to form1.richedit1.lines.count-1 do
begin
  form2.RichEdit1.SelStart:=Pos(form2.RichEdit1.Lines[i], Form2.RichEdit1.text)-1;    
  form2.RichEdit1.SelLength:=Length(form2.RichEdit1.lines[i]); 
  form2.RichEdit1.SelAttributes.Color:=255;
end;

Но раскрашивает неравномерно почему-то

@Dima-nk · 01.12.2014, 15:46 **[ТС]**

где я ошибку допустил? delphi 2010

@snake32 · 01.12.2014, 18:45

Delphi

start := 0;
for i:=0 to form1.richedit1.lines.count-1 do
begin
  len := Length(form2.RichEdit1.lines[i]);
  form2.RichEdit1.SelStart:=start;    
  form2.RichEdit1.SelLength:=len; 
  form2.RichEdit1.SelAttributes.Color:=255;
  Inc(start, len);
end;

А так?

@Sergio Leone · 04.12.2014, 20:21

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

А так?

через строку же надо. и start нужно не на length увеличивать, а на length()+2 - там в конце строки ещё есть пара служебных байт (#13#10)

тогда уже так:

Delphi

var i, start, len : integer;
begin
start := 0;
for i:=0 to richedit1.lines.count-1 do
begin
  len := Length(RichEdit1.lines[i]);
  RichEdit1.SelStart:=start;
  RichEdit1.SelLength:=len;
  if odd(i) then
     RichEdit1.SelAttributes.Color:=clRed
  else
     RichEdit1.SelAttributes.Color:=clBlue;
  Inc(start, len+2);
end;
end;

@Dima-nk 1 / 1 / 1 Регистрация: 23.04.2013 Сообщений: 210
	01.12.2014, 15:46 [ТС]	2
	где я ошибку допустил? delphi 2010 0

	04.12.2014, 20:21

Опции темы