[alexan0308]

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

Если надо добавить строку, то я делаю так:

Код:

RichEdit1.Lines.Add('Это наш текст');
RichEdit1.SelAttributes.Color:=clRead;
RichEdit1.SelText('Это наш текст');
RichEdit1.Lines.Delete(1);
RichEdit1.Lines.Add('');

Не работает, но мысль понятна. Тут действительно выигрыша не видно. Более сложный случай -

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color:=clRed;
RichEdit1.SelText:='Это красный текст';
RichEdit1.SelAttributes.Color:=clblack;
Richedit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelText:='Это жирный текст';
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style - [fsBold];
RichEdit1.SelAttributes.Style:=[fsItalic];
RichEdit1.SelText:='Это наклонный текст';
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style - [fsItalic];
RichEdit1.Lines.Add('');
end;

У меня будет выглядеть как

Код:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  RichEdit_text:=  '<font color=red>Это красный текст</font>'   +
                   '<b>Это жирный текст</b>' +
                   '<i>Это наклонный текст</i>';
  RichEdit_add_text;
end;

Другое дело, мою процедуру легко использовать внутри потока. Как ваш код переделать под поток, в случае добавлении поочередно нескольких строк? даже не представляется возможным...