Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

27th
Фев

Как вставить перевод строки #10#13 в текст RichEdit?

Posted by obzor under Delphi

Как вставить перевод строки #10#13 в RichEdit1 в позицию где сейчас находиться курсор?

Аватар

просто RichEdit1.SelText:=#13#10;
SelStart не меняй, в нем позиция курсора
SelLength если не обнулять, то с замещением выделенного, если оно есть конечно

evg_m

работая в «линейно» вытянутом тексте( в одну строку), включая при этом и переводы строк (#13#10) как символы.

Код:


i:=1;
while i<length(RichText1.Lines.Text) do begin
  //ищем конец строки(#13#10) начиная с указанного места i
  k:=posEx(#13#10, RichText1.Lines.Text, i);
  if k<0 then k:=length(RichText1.Lines.Text);
  
  if k-i >80 then // у нас длинная строка
  begin
     RichText1.selstart:=i+80; // в нужном месте
     RichText1.sellength:=0; 
     RichText1.seltext:=#13#10; // делим ее
  end
  else //она короткая 
     i:=k+length(#13#10); //пропускаем её
end;