procedure TForm1.Button1Click(Sender: TObject);
var
iStart, iEnd, iCursor: integer;
begin
iStart:=EditArea.SelStart;
iEnd:=EditArea.FindText('<--->',iStart,Length(EditArea.Text)-iStart, []);
while iEnd<>-1 do
begin
iCursor:=iEnd+Length('<--->');
//копируем отрывок
with EditArea do
begin
SelStart:=iStart;
SelLength:=iCursor;
CopyToClipboard;
SelStart:=iCursor;
SelText:=#13#10#13#10;
PasteFromClipboard;
end;
iStart:=EditArea.SelStart;
iEnd:=EditArea.FindText('<--->',iStart,Length(EditArea.Text), []);
end;
EditArea.SetFocus;
end;
Работа с текстом в RichEdit
Цитата:
текст1
текст1
<--->
текст2
текст2
<--->
и т.д.
текст1
<--->
текст2
текст2
<--->
и т.д.
Мне нужно продублировать каждую часть, сохранив форматирование:
Цитата:
текст1
текст1
<--->
текст1
текст1
<--->
текст2
текст2
<--->
текст2
текст2
<--->
и т.д.
Простейшая задача, а у меня не выходит, аж бесит. :)
Вот, что я сделал:
Код:
Подскажите, плз, где я затупил. :) Или, возможно, вообще другой подход и другие функции нужно использовать.