как вставить #10#13 в текст

[lich king]

как вставить #10#13 в RichEdit1 в позицию где сейчас находиться курсор?
SelLength := 0;
SelStart := a;

[Аватар]

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

[lich king]

Сообщение от Аватар

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

чет не робит

rocedure TForm1.N801Click(Sender: TObject);
var
a,b,I,linenum:integer;
S,sf:string;

begin
for I := 0 to I do RichEdit1.Lines.Count
begin
with RichEdit1 do
begin
SelLength := 0;
SelStart := 80;
form1.RichEdit1.SelText:=#10#13;

end;

end;
end;

[Аватар]

Так оно просто не компилируется. До не робит еще дойти нужно ))

[lich king]

а как?

[lich king]

Сообщение от Аватар

Так оно просто не компилируется. До не робит еще дойти нужно ))

А как это делать?

[evg_m]

for I := 0 to I do RichEdit1.Lines.Count// число строк у нас будет меняться поэтому for нормально отработает только с конца
for I:=RichEdit1.Lines.count-1 downto 0 do НО резать-то будем сначала оставляя хвост на потом 
I:=0;
while I<RichEdit1.Lines.count do 
begin
with RichEdit1 do //ну не люблю я width
begin
SelLength := 0;
SelStart := 80; // SelStart не имеет НИКАКОГО отношения к строкам текста (Text.Lines). 
это позиция в "линейно" вытянутом тексте( в одну строку), включая при этом и переводы строк (#13#10) как символы.
form1.RichEdit1.SelText:=#10#13;
s:=RichText1.Lines.String[i]; // а нам нужны нам строки 
if length(s)>80 then begin
  RichText1.Lines.String[i]:=copy(s,1,80); // начало оставляем на месте
  RichText1.Lines.Insert(I+1, copy(s, 81, length(s));//ВТИСКИВАЕМ(Insert) остаток строки сдвигая прочие
end;
I:=I+1; //идем на следующую строку
end;

или работая

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

i:=1;
while i<length(RichText1.Lines.Text) do begin
  k:=posEx(#13#10, RichText1.Lines.Text, i); //ищем конец строки(#13#10) начиная с указанного места 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;