Нужен ваш совет, дорогие мужчины..Проблема описана ниже

Заранее благодарна.

Код

void __fastcall TForm1::FormCreate(TObject *Sender) { //очищаю РичЭдит и вставляю 3 строки полужирным шрифтом RichEdit1->Clear(); RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold; RichEdit1->Lines->Add("1 Раздел"); RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold; RichEdit1->Lines->Add("2 Раздел"); RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold; RichEdit1->Lines->Add("3 Раздел"); RichEdit1->SelAttributes->Assign(RichEdit1->DefAttributes); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { //по идеи эта строка востанавливает значения свойств SelAttributes до первоначальных //и новые строки должны вставиться обычным шрифтом, но этого не происходит. Строки //вставляются тоже полужирными :( RichEdit1->SelAttributes->Assign(RichEdit1->DefAttributes); //вставляю новые строки RichEdit1->Lines->Insert(1,"Текст 1 раздела"); int m = RichEdit1->Lines->IndexOf("2 раздел"); RichEdit1->Lines->Insert(m + 1,"Текст 2 раздела"); }

void __fastcall TForm1::FormCreate(TObject *Sender)
{
RichEdit1->Clear();
RichEdit->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("1 Раздел");
RichEdit1->Lines->Add("2 Раздел");
RichEdit1->Lines->Add("3 Раздел");
RichEdit1->SelAttributes->Style = TFontStyles() >> fsBold;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Lines->Insert(1,"Текст 1 раздела");
int m = RichEdit1->Lines->IndexOf("2 раздел");
RichEdit1->Lines->Insert(m + 1,"Текст 2 раздела");
}

Нет, вру. Вот так. Будет работать 100%

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//--------------------------------------------------------
RichEdit1->Clear();
RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("1 Раздел);
RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("2 Раздел");
RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("3 Раздел");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
RichEdit1->Clear();
RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("1 Раздел");
RichEdit1->Lines->Insert(1,"Текст 1 раздела");

RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("2 Раздел");
int m = RichEdit1->Lines->IndexOf("2 Раздел");
RichEdit1->Lines->Insert(m + 1,"Текст 2 раздела");

RichEdit1->SelAttributes->Style = TFontStyles() << fsBold;
RichEdit1->Lines->Add("3 Раздел");
m = RichEdit1->Lines->IndexOf("3 Раздел");
RichEdit1->Lines->Insert(m + 1,"Текст 3 раздела");
}

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

Все очень просто. Закидываешь "Раздел1", "Раздел2"... в TStringList, объявленный глобальным, и выводишь в цикле. С текстом тоже самое. Если текст несколько строк, закидываешь каждый текст в TStringList, указатель каждого TStringList помещаешь в TList. Могу показать еси что.