Код на delphi10 работает не так, как в delphi 7

@test-reklama · Регистрация: 21.08.2013

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

Здравствуйте. Подскажите, пожалуйста, как сделать так, чтобы код работал верно при компиляции delphi10. В делфи 7 работает нормально. Код удаляет символы между круглыми скобками и в richEdit1 окрашивает красным цветом. При компиляции в delphi7 _ всё правильно работет, а если в Делфи 10 скомпилировать, то окрашивает с отступом на столько символов, сколько переносов строки.

Delphi

 for ii := Lenr downto 1 do
 
  if (p = 0) and (J[ii] = ')') then
 
  p := ii
 
  else if (p > 0) and (J[ii] = '(') then begin
 
  RichEdit1.SelStart := ii-1;
  RichEdit1.SelLength := p-ii+1;
 
  RichEdit1.SelAttributes.Color := RGB(200, 0, 0);
 
  Delete(J, ii, p - ii + 1);
 
  p := 0;
 
  end;
  Memo1.Text := J;
end;

@volvo · 02.10.2013, 21:42

J у тебя - это RichEdit1.Text? Значит, для тех версий Delphi, которые используют RichEdit v2.0 и выше, надо делать так:

Delphi

1	j := StringReplace(RichEdit1.Text, #10, '', [rfReplaceAll]);

, это выправит нумерацию символов...

@test-reklama · 02.10.2013, 21:51 **[ТС]**

Спасибки, Пока проверить не могу - ноут занят, на котором делфи 10. Можно вопрос? Это заменит переносы, но не получится ли так, что текст сдвинется в richEdit? То есть, было две строки, например, а станет одна - или это не повлияет на вид текста?

@volvo · 02.10.2013, 22:19

Ничего не изменится только потому, что ты не работаешь с RichEdit1.Text, ты просто его запоминаешь, убираешь один из разделителей, и работаешь с запомненной строкой, текст в RE вообще не изменяется, там только меняются атрибуты...

@test-reklama · 02.10.2013, 22:36 **[ТС]**

Спасибки! :-)

@test-reklama 1 / 1 / 0 Регистрация: 21.08.2013 Сообщений: 54
	02.10.2013, 21:51 [ТС]	3
	Спасибки, Пока проверить не могу - ноут занят, на котором делфи 10. Можно вопрос? Это заменит переносы, но не получится ли так, что текст сдвинется в richEdit? То есть, было две строки, например, а станет одна - или это не повлияет на вид текста? 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	02.10.2013, 22:19	4
	Ничего не изменится только потому, что ты не работаешь с RichEdit1.Text, ты просто его запоминаешь, убираешь один из разделителей, и работаешь с запомненной строкой, текст в RE вообще не изменяется, там только меняются атрибуты... 1

@test-reklama 1 / 1 / 0 Регистрация: 21.08.2013 Сообщений: 54
	02.10.2013, 22:36 [ТС]	5
	Спасибки! :-) 0