RichEdit

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

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include <stdlib.h>
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool Clik;                                                        //Перемінна
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormatClick(TObject *Sender)
{
    Format->Checked=!Format->Checked;       //Панел форматирования текста
    Panel1->Visible=Format->Checked;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::InstrumentClick(TObject *Sender)
{
    Instrument->Checked=!Instrument->Checked;
    Panel2->Visible=Instrument->Checked;             //Панел инструментов
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RaydokStanuClick(TObject *Sender)
{
    RaydokStanu->Checked=!RaydokStanu->Checked;
    StatusBar->Visible=RaydokStanu->Checked;           //Строка состояния
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FileExitClick(TObject *Sender)
{
Close();                                                       //Кнопка виход
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PoLevomuKrauyClick(TObject *Sender)
{
RichEdit1->Paragraph->Alignment = taLeftJustify;                    // С лева
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PoCentreClick(TObject *Sender)
{
RichEdit1->Paragraph->Alignment = taCenter;                      // По центру
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PoPravomuKrauyClick(TObject *Sender)
{
RichEdit1->Paragraph->Alignment = taRightJustify;                   //С права
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ZirnuyTextClick(TObject *Sender)
{
if(!Clik)
  {
    if(ZirnuyText->Down)
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsBold;
    else                                                             //Жирний
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style>>fsBold;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KursivniyTextClick(TObject *Sender)
{
  if(!Clik)
  {
    if(KursivniyText->Down)
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsItalic;
    else                                                          //Курсивный
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style>>fsItalic;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PodcherknytiyTextClick(TObject *Sender)
{
if(!Clik)
  {
    if(PodcherknytiyText->Down)
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style<<fsUnderline;
    else                                                       //Підкреслений
      RichEdit1->SelAttributes->Style=RichEdit1->SelAttributes->Style>>fsUnderline;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::VubirRazmeraTextaChange(TObject *Sender)
{
  int fontsize = atoi(VubirRazmeraTexta->Text.c_str());
 
  if((!Clik) && (fontsize))
  {
    if(fontsize < 1)
    {
      VubirRazmeraTexta->Text = 1;                            //Размер текста
    }
    else if(fontsize > 1638)
    {
      VubirRazmeraTexta->Text = 1638;
    }
 
    RichEdit1->SelAttributes->Size = atoi(VubirRazmeraTexta->Text.c_str());
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::VubirHriftaChange(TObject *Sender)
{
  if(!Clik)
  {
    int FontIndex = VubirHrifta->ItemIndex;                   //Вибор шрифта
 
    if((FontIndex > -1) && (FontIndex < VubirHrifta->Items->Count))
    {
      RichEdit1->SelAttributes->Name = VubirHrifta->Items->Strings[VubirHrifta->ItemIndex];
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CopyClick(TObject *Sender)
{
RichEdit1->CopyToClipboard();                                     //Копиюваты
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PasteClick(TObject *Sender)
{
RichEdit1->PasteFromClipboard();                                   //Вставить
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CutClick(TObject *Sender)
{
RichEdit1->CutToClipboard();                                       //Вирезать
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Del2Click(TObject *Sender)
{
RichEdit1->Clear();                                                //Очистити
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DovidkaClick(TObject *Sender)
{
  Form2 = new TForm2(Application);
  Form2->ShowModal();                                     //Ссілка на довідку
  delete Form2;        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::MarkerClick(TObject *Sender)
{
  if(!Clik)                                                          //Маркер
    RichEdit1->Paragraph->Numbering = static_cast<TNumberingStyle>
    (Marker->Down);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UndoClick(TObject *Sender)
{
  if ( RichEdit1->HandleAllocated() )                            //Крок назад
    SendMessage(RichEdit1->Handle, EM_UNDO, 0, 0);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Proverka(void)
{
   if(RichEdit1->Modified)
  {
    switch(MessageBox(Handle, "Зберегти документ?",
           "TextRichEdit",MB_YESNOCANCEL | MB_ICONQUESTION))
    {
      case ID_YES:
          FileSaveClick(this);                                    //Перевірка
          break;
 
      case ID_CANCEL:
          Abort();
    };
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FileNewClick(TObject *Sender)
{
  Proverka();                                    //Створення нового документа
  RichEdit1->Lines->Clear();
  RichEdit1->Modified = False;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  try
  {
    Proverka();
  }                                               //Перевірка для самої форми
  catch(...)
  {
    CanClose = False;
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FileOpenClick(TObject *Sender)
{
Proverka();
if ( OpenDialog1->Execute() )
{                                                                  //Відкрити
RichEdit1->Lines->LoadFromFile(OpenDialog1->FileName);
Form1->Caption = OpenDialog1->FileName;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditFontClick(TObject *Sender)
{
  FontDialog1->Font->Assign(RichEdit1->SelAttributes);
  if(FontDialog1->Execute())                                       //Шрифт...
    RichEdit1->SelAttributes->Assign( FontDialog1->Font );
  RichEdit1->SetFocus();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Del1Click(TObject *Sender)
{
RichEdit1->Clear();                                                //Очистити
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::VudelitVseClick(TObject *Sender)
{
RichEdit1->SelectAll();                                        //Виділити все
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FilePrintClick(TObject *Sender)
{
if(PrintDialog1->Execute())RichEdit1->Print(Text);                //Друкувати
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Find1Click(TObject *Sender)
{
    FindDialog1->FindText = RichEdit1->SelText;                      //Знайти
    FindDialog1->Execute();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Replace1Click(TObject *Sender)
{
    ReplaceDialog1->FindText = RichEdit1->SelText;                 //Замінити
    ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Find(TObject *Sender)
{
    TSearchTypes st;
    TFindDialog *cd;
    int newpos;
 
    if ((cd = dynamic_cast<TFindDialog *> (Sender)) == 0)
        MessageBox(NULL, "Пошук завершено!", "TextRichEdit", MB_OK);
 
    if (cd->Options.Contains(frMatchCase))
        st << stMatchCase;
    if (cd->Options.Contains(frWholeWord))
        st << stWholeWord;
 
    if (RichEdit1->SelLength)
        RichEdit1->SelStart += 1;
 
    newpos = RichEdit1->FindText(cd->FindText,
                        RichEdit1->SelStart,      //Діалогічний об'єкт Пошук
                        RichEdit1->Text.Length(),
                        st);
 
    if (newpos != -1)
    {
        RichEdit1->SelStart = newpos;
        RichEdit1->SelLength = cd->FindText.Length();
    }
    else
    {
        MessageBox(NULL, "Заміна виконана.", "TextRichEdit", MB_OK);
        RichEdit1->SelStart = 0;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Replace(TObject *Sender)
{
    if (RichEdit1->SelLength == 0)
        Find(Sender);
    else                                        //Діалогічний об'єкт Замінити
    {
        RichEdit1->SelText =  ReplaceDialog1->ReplaceText;
        Find(Sender);
    }
 
    if (ReplaceDialog1->Options.Contains(frReplaceAll))
        while (RichEdit1->SelLength !=0)
            Replace(Sender);
}
//-------------------------------------------------------------------------//
//                     PopupMenu2 - меню "Колір тексту"                    //
//--------------------------- Синій ---------------------------------------//
void __fastcall TForm1::N28Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clBlue;
}
//--------------------------- Чорний --------------------------------------//
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWindowText;
}
//------------------------ Автоматично ------------------------------------//
void __fastcall TForm1::N39Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWindowText;
}
//---------------------- Малиновий ----------------------------------------//
void __fastcall TForm1::N4Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = 0x00400080;
}
//--------------------------- Зелений -------------------------------------//
void __fastcall TForm1::N6Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clGreen;
}
//------------------------- Оливковий -------------------------------------//
void __fastcall TForm1::N7Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clOlive;
}
//--------------------------- Темно-синій ---------------------------------//
void __fastcall TForm1::N9Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clNavy;
}
//-----------------------------Бузковий -----------------------------------//
void __fastcall TForm1::N15Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clPurple;
}
//-------------------------- Бірюзовий ------------------------------------//
void __fastcall TForm1::N16Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = 0x00808040;
}
//------------------------------ Сірий ------------------------------------//
void __fastcall TForm1::N17Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clGray;
}
//------------------------- Сріблястий ------------------------------------//
void __fastcall TForm1::N19Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clSilver;
}
//---------------------------- Червоний -----------------------------------//
void __fastcall TForm1::N22Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clRed;
}
//--------------------------- Травяний ------------------------------------//
void __fastcall TForm1::N25Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clLime;
}
//--------------------------- Жовтий --------------------------------------//
void __fastcall TForm1::N27Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clYellow;
}
//------------------------- Розовий ---------------------------------------//
void __fastcall TForm1::N33Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clFuchsia;
}
//--------------------------- Голубий -------------------------------------//
void __fastcall TForm1::N34Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clAqua;
}
//----------------------------- Білий -------------------------------------//
void __fastcall TForm1::N37Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWhite;
}
//                              Кінець                                     //
//_________________________________________________________________//
 
void __fastcall TForm1::CvetTextaMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
TSpeedButton *b = dynamic_cast <TSpeedButton*>(Sender);        //Колір тексту
b->PopupMenu->Popup(Form1->Left+344,Form1->Top+b-> Top+(b->Height+70));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FileSaveClick(TObject *Sender)
{
  if ( SaveDialog->Execute() )
  {
    RichEdit1->Lines->SaveToFile(SaveDialog->FileName);            //Зберегти
    RichEdit1->Modified = False;
  }
}
//---------------------------------------------------------------------------

//-------------------------------------------------------------------------//
//                     PopupMenu2 - меню "Колір тексту"                    //
//--------------------------- Синій ---------------------------------------//
void __fastcall TForm1::N28Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clBlue;
}
//--------------------------- Чорний --------------------------------------//
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWindowText;
}
//------------------------ Автоматично ------------------------------------//
void __fastcall TForm1::N39Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWindowText;
}
//---------------------- Малиновий ----------------------------------------//
void __fastcall TForm1::N4Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = 0x00400080;
}
//--------------------------- Зелений -------------------------------------//
void __fastcall TForm1::N6Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clGreen;
}
//------------------------- Оливковий -------------------------------------//
void __fastcall TForm1::N7Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clOlive;
}
//--------------------------- Темно-синій ---------------------------------//
void __fastcall TForm1::N9Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clNavy;
}
//-----------------------------Бузковий -----------------------------------//
void __fastcall TForm1::N15Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clPurple;
}
//-------------------------- Бірюзовий ------------------------------------//
void __fastcall TForm1::N16Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = 0x00808040;
}
//------------------------------ Сірий ------------------------------------//
void __fastcall TForm1::N17Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clGray;
}
//------------------------- Сріблястий ------------------------------------//
void __fastcall TForm1::N19Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clSilver;
}
//---------------------------- Червоний -----------------------------------//
void __fastcall TForm1::N22Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clRed;
}
//--------------------------- Травяний ------------------------------------//
void __fastcall TForm1::N25Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clLime;
}
//--------------------------- Жовтий --------------------------------------//
void __fastcall TForm1::N27Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clYellow;
}
//------------------------- Розовий ---------------------------------------//
void __fastcall TForm1::N33Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clFuchsia;
}
//--------------------------- Голубий -------------------------------------//
void __fastcall TForm1::N34Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clAqua;
}
//----------------------------- Білий -------------------------------------//
void __fastcall TForm1::N37Click(TObject *Sender)
{
RichEdit1->SelAttributes->Color = clWhite;
}
//                              Кінець                                     //
//_________________________________________________________________//

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#include <string.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float dd,ff,yy,mili,mmili,mm;
float m=StrToFloat(LabeledEdit1->Text);
float d=StrToFloat(LabeledEdit2->Text);
float f=StrToFloat(LabeledEdit3->Text);
float y=StrToFloat(LabeledEdit4->Text);
float mi=StrToFloat(LabeledEdit5->Text);
float mmi=StrToFloat(LabeledEdit6->Text);
switch(ComboBox1->ItemIndex){
//------ metri--------
case 0:
dd=m*39.3701;
ff=m*3.28084;
yy=m*1.09361;
mili=m*0.00062;
mmili=m*0.00055;
Edit1->Visible=true;
Edit2->Visible=true;
Edit3->Visible=true;
Edit4->Visible=true;
Edit5->Visible=true;
Edit1->Text=FloatToStr(floor(dd*100000)/100000);
Edit2->Text=FloatToStr(floor(ff*100000)/100000);
Edit3->Text=FloatToStr(floor(yy*100000)/100000);
Edit4->Text=FloatToStr(floor(mili*100000)/100000);
Edit5->Text=FloatToStr(floor(mmili*100000)/100000);
break;
//-----duymi------
case 1:
mm=d*0.02540;
ff=d*0.08333;
yy=d*0.02778;
mili=d*0.00002;
mmili=d*0.00001;
Edit6->Visible=true;
Edit7->Visible=true;
Edit8->Visible=true;
Edit9->Visible=true;
Edit10->Visible=true;
Edit6->Text=FloatToStr(floor(mm*100000)/100000);
Edit7->Text=FloatToStr(floor(ff*100000)/100000);
Edit8->Text=FloatToStr(floor(yy*100000)/100000);
Edit9->Text=FloatToStr(floor(mili*100000)/100000);
Edit10->Text=FloatToStr(floor(mmili*100000)/100000);
break;
//-----futi------
case 2:
mm=f*0.30480;
dd=f*12;
yy=f*0.33333;
mili=f*0.00019;
mmili=f*0.00017;
Edit11->Visible=true;
Edit12->Visible=true;
Edit13->Visible=true;
Edit14->Visible=true;
Edit15->Visible=true;
Edit11->Text=FloatToStr(floor(mm*100000)/100000);
Edit12->Text=FloatToStr(floor(dd*100000)/100000);
Edit13->Text=FloatToStr(floor(yy*100000)/100000);
Edit14->Text=FloatToStr(floor(mili*100000)/100000);
Edit15->Text=FloatToStr(floor(mmili*100000)/100000);
break;
//------yardi--------
case 3:
mm=y*0.91440;
dd=y*36;
ff=y*3;
mili=y*0.00057;
mmili=y*0.00050;
Edit16->Visible=true;
Edit17->Visible=true;
Edit18->Visible=true;
Edit19->Visible=true;
Edit20->Visible=true;
Edit16->Text=FloatToStr(floor(mm*100000)/100000);
Edit17->Text=FloatToStr(floor(dd*100000)/100000);
Edit18->Text=FloatToStr(floor(ff*100000)/100000);
Edit19->Text=FloatToStr(floor(mili*100000)/100000);
Edit20->Text=FloatToStr(floor(mmili*100000)/100000);
break;
//-------mili-----
case 4:
mm=mi*1609.34;
dd=mi*633360;
ff=mi*5280;
yy=mi*1760;
mmili=mi*0.88038;
Edit21->Visible=true;
Edit22->Visible=true;
Edit23->Visible=true;
Edit24->Visible=true;
Edit25->Visible=true;
Edit21->Text=FloatToStr(floor(mm*100000)/100000);
Edit22->Text=FloatToStr(floor(dd*100000)/100000);
Edit23->Text=FloatToStr(floor(ff*100000)/100000);
Edit24->Text=FloatToStr(floor(yy*100000)/100000);
Edit25->Text=FloatToStr(floor(mmili*100000)/100000);
break;
//-----morskiemili-------
case 5:
mm=mmi*1828;
dd=mmi*71968.6;
ff=mmi*5997.39;
yy=mmi*1999.13;
mili=mmi*1.13587;
Edit26->Visible=true;
Edit27->Visible=true;
Edit28->Visible=true;
Edit29->Visible=true;
Edit30->Visible=true;
Edit26->Text=FloatToStr(floor(mm*100000)/100000);
Edit27->Text=FloatToStr(floor(dd*100000)/100000);
Edit28->Text=FloatToStr(floor(ff*100000)/100000);
Edit29->Text=FloatToStr(floor(yy*100000)/100000);
Edit30->Text=FloatToStr(floor(mili*100000)/100000);
break;
}}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
switch(ComboBox1->ItemIndex){
case 0:
LabeledEdit1->Visible=true;
LabeledEdit2->Visible=false;
LabeledEdit3->Visible=false;
LabeledEdit4->Visible=false;
LabeledEdit5->Visible=false;
LabeledEdit6->Visible=false;
break;
case 1:
LabeledEdit1->Visible=false;
LabeledEdit2->Visible=true;
LabeledEdit3->Visible=false;
LabeledEdit4->Visible=false;
LabeledEdit5->Visible=false;
LabeledEdit6->Visible=false;
break;
case 2:
LabeledEdit1->Visible=false;
LabeledEdit2->Visible=false;
LabeledEdit3->Visible=true;
LabeledEdit4->Visible=false;
LabeledEdit5->Visible=false;
LabeledEdit6->Visible=false;
break;
case 3:
LabeledEdit1->Visible=false;
LabeledEdit2->Visible=false;
LabeledEdit3->Visible=false;
LabeledEdit4->Visible=true;
LabeledEdit5->Visible=false;
LabeledEdit6->Visible=false;
break;
case 4:
LabeledEdit1->Visible=false;
LabeledEdit2->Visible=false;
LabeledEdit3->Visible=false;
LabeledEdit4->Visible=false;
LabeledEdit5->Visible=true;
LabeledEdit6->Visible=false;
break;
case 5:
LabeledEdit1->Visible=false;
LabeledEdit2->Visible=false;
LabeledEdit3->Visible=false;
LabeledEdit4->Visible=false;
LabeledEdit5->Visible=false;
LabeledEdit6->Visible=true;
break;
}}
//---------------------------------------------------------------------------