RichEdit

int i++;
int x = 100;
RichEdit1->Lines->Add(i.x);//Add(i.x) не знаю как правильно.

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TRichEdit *RichEdit1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
bool KNOPKA_NAJATA; //глобальная переменная
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
KNOPKA_NAJATA=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (KNOPKA_NAJATA==false)
{
KNOPKA_NAJATA=true;
RichEdit1->SelAttributes->Style=TFontStyles()<<fsBold;//выделенный текст становится жирным
/*
как и говорил ранее Lord_Voodoo "gorin, это думать надо, сходу простым высталением свойств ричэдита твою проблему не решить... тут надо каким-то образом вводимый символ выделять и ему применять стиль - жирный..."
*/
}
else
{
KNOPKA_NAJATA=false;
RichEdit1->SelAttributes->Style=TFontStyles();//выделенный жирный текс становится обычным
}
}
//---------------------------------------------------------------------------

bool KNOPKA_NAJATA; //глобальная переменная

#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---вот тут---

TTextAttributes *__fastcall TMainForm::CurrText(void)
{
  return RichEdit1->SelAttributes;
}

...
private:
    AnsiString FFileName;
    bool FUpdating;
    int FDragOfs;
    bool FDragging;
    TTextAttributes *__fastcall CurrText(void);
...

/*The following OnFind event handler searches a memo component for the text specified in the FindText property of a find dialog component. If found, the first occurrence of the text in Memo1 is selected. The code uses the Pos function to compare strings, and stores the number of characters to skip when determining the selection position in the Skipchars variable. Because there is no handling of case, whole word, or search direction in this algorithm, it is assumed that the Options property of FindDialog1 was set to include frHideMatchCase, frHideWholeWord, and frHideUpDown.
*/
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
 
{
  for (int I = 0; I < Memo1->Lines->Count; I++)
  {
    int PosReturn = Memo1->Lines->Strings[I].Pos(FindDialog1->FindText);
    if (PosReturn) //found!
    {
      int Skipchars = 0;
      for (int J = 0; J < I; J++)
        Skipchars += Memo1->Lines->Strings[J].Length();
      Skipchars += I*2; // add CR/LF for all skipped lines
      Skipchars += PosReturn - 1;
      Memo1->SetFocus();
      Memo1->SelStart = Skipchars;
 
      Memo1->SelLength = FindDialog1->FindText.Length();
      break;
    }
  }
}

//---------------------------------------------------------------------------
void __fastcall TForm2::FindFind(TObject *Sender)
{
if((Sender!=Find)&&(Sender!=Replace))return;
TFindDialog* f = (TFindDialog*)Sender;
//комментарий. Дело в том, что TReplaceDialog
//является потомком TFindDialog, поэтому это преобразование сработает в любом случае
//будь это TFindDialog или TReplaceDialog
TSearchTypes st;
//Опции, введенные пользователем
if(f->Options.Contains(frMatchCase))st<<stMatchCase;
if(f->Options.Contains(frWholeWord))st<<stWholeWord;
if(RichEdit1->SelLength)RichEdit1->SelStart++;
//Когда программа находит что-то, она подсвечивает текст.
//Если HideSelection==true и фокус лежит не на основной форме,
//то выделение видно не будет
RichEdit1->HideSelection = false;
int Found = RichEdit1->FindText(f->FindText,RichEdit1->SelStart,
                                RichEdit1->Text.Length(),st);
if(Found!=-1)
        {
        RichEdit1->SelStart = Found;
        //Прокрутить окно ввода до выделенного места. 
        //С таким же успехом здесь мог быть метод Perform.
        SendMessage(RichEdit1->Handle,EM_SCROLLCARET,0,0);
        RichEdit1->SelLength = f->FindText.Length();
        }
else    {
        Application->MessageBox("Searching has reached the end of the document",
        "Search",MB_OK);
        f->CloseDialog();
        };
//SetFocus(); //эта инструкция пригодилась бы, 
                   //если бы не был установлен флаг HideSelection
}
//---------------------------------------------------------------------------