Слепить проект

//---------------------------------------------------------------------------
//директивы препроцессора.
 
#include <vcl.h> //подключает заголовочный файл vcl.h, содержащий объявления,   //используемые в библиотеке визуальных компонентов C++Builder.
 
#pragma hdrstop
//---------------------------------------------------------------------------
 
//макросы, подключающие файлы ресурсов и форм.
USEFORM("Unit1.cpp", Form1);
//---------------------------------------------------------------------------
//Главная функция WinMain.
//Первый параметр функции WinMain, HINSTANCE – является дескриптор //данного экземпляра приложения.
// Второй параметр функции WinMain, дескриптор предыдущего экземпляра //нашего приложения (если выполняется несколько приложений).
//Третий параметр является указателем на строку  с нулевым символом в конце, //содержащую параметры, передаваемые в программу через командную строку.
//Последний параметр определяет окно приложения.
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{//Тело функции
        try //Проверка на ошибки, если возникает ошибка то выполняются действия 
             //описанные в блоке catch.
        {
                 Application->Initialize();  //Инициализирует объекты компонентов  
                                                           //данного приложения.
                 Application->HelpFile = ""; //Инициализирует справочный файл.
                 
                 Application->CreateForm(__classid(TForm1), &Form1); //Создает объекты 
                    //соответствующих форм.
                 Application->Run();          //Выполнение программы.
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;// Завершает приложение с кодом завершения 0.
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
//Unit1.h – заголовочный файл интерфейса, содержит объявление классов, //функций, переменных и тп.
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ActnList.hpp>
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <Menus.hpp>
#include <StdActns.hpp>
//сюда могут помещаться дополнительные директивы
//препроцессора (в частности include)
//не включаемые в файл автоматически.
//---------------------------------------------------------------------------
//Объявления класса формы TForm1.
class TForm1 : public TForm
{
__published:    // IDE-managed Components
//Размещенные на форме компоненты. 
       TMemo *Memo1;
        TMainMenu *MainMenu1;
        TMenuItem *N1;
        TMenuItem *N2;
        TMenuItem *N3;
        TMenuItem *N4;
        TMenuItem *N5;
        TOpenDialog *OpenDialog1;
        TSaveDialog *SaveDialog1;
        TStatusBar *StatusBar1;
        TActionList *ActionList1;
        TMenuItem *N6;
        TMenuItem *N7;
        TMenuItem *N8;
        TMenuItem *N9;
        TMenuItem *N10;
        TMenuItem *N11;
        TMenuItem *N12;
        TMenuItem *N13;
        TMenuItem *N14;
        TMenuItem *N15;
        TAction *Action1;
        TEditCut *EditCut1;
        TEditCopy *EditCopy1;
        TEditPaste *EditPaste1;
        TEditSelectAll *EditSelectAll1;
        TEditUndo *EditUndo1;
        TEditDelete *EditDelete1;
        TAction *Action2;
        TFindDialog *FindDialog1;
        TFontDialog *FontDialog1;
        TMenuItem *N16;
        void __fastcall N2Click(TObject *Sender);
        void __fastcall N3Click(TObject *Sender);
        void __fastcall N4Click(TObject *Sender);
        void __fastcall N5Click(TObject *Sender);
        void __fastcall N15Click(TObject *Sender);
        void __fastcall N14Click(TObject *Sender);
        void __fastcall Memo1Change(TObject *Sender);
        void __fastcall N12Click(TObject *Sender);
        void __fastcall FindDialog1Find(TObject *Sender);
        void __fastcall FindDialog1Close(TObject *Sender);
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
        void __fastcall N16Click(TObject *Sender);
private:  : //Закрытый раздел класса, сюда могут помещаться объявления типов, //функций, переменных включаемых в класс формы но не доступных для других //модулей.
public:  //Открытый раздел класса, сюда могут помещаться объявления типов, //функций, переменных включаемых в класс формы и доступных для других //модулей.
        __fastcall TForm1(TComponent* Owner);
};
// Сюда могут помещаться объявления типов, функций, переменных  которые не //включаются в класс формы.
//Доступ к ним из др. блоков возможен только при соблюдении некоторых //дополнительных условий.
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//Unit1.cpp – файл реализации содержит описание функций.
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "dstring.h"
#include "stdio.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//сюда могут помещаться дополнительные директивы
//препроцессора (в частности include)
//не включаемые в файл автоматически.
 
//Объявления объекта формы Form1.
TForm1 *Form1;
AnsiString S; //Обьявляем глобальную переменную типа AnsiString.
static int  I=0; //Обьявляем глобальную статическую переменную типа static int.
static int X=0;  //Обьявляем глобальную статическую переменную типа static int.
 
//Обьявляем прототип функции.
AnsiString kol_vo_word(AnsiString);
//Обьявляем саму функцию.
AnsiString kol_vo_word(AnsiString in)
{
//Обьявляем переменную типа int и присваиваем ей ноль.
int x=0;
//Функцией gets получаем строку из стандартного ввода.
gets(in.c_str());
 
//Функция strlen возвращает число символов
// в строке не считая нулевого символа в конце.
//Задаем цикл от 0 (int i=0) до кол-ва символов i<strlen(in.c_str()) и инкрементом i++.
for (int i=0; i<strlen(in.c_str());i++)
{
//Если элемент массива равен пробелу OR Enter, то
if (in.c_str()[i]==' ' || in.c_str()[i]==13)
{
//х+1.
x++;
}
}
//т.к.функция strlen не учитывает нулевой символ в конце то,
//для правильного подсчета слов инкрементируем х.
x++;
//Возвращаемое значение функцией.
return x;
}
 
//Вызов конструктора формы Form1.
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{//Сюда можно поместить операторы которые должны
  //выполнятся при создании формы.
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
if (OpenDialog1->Execute()) //Вызываем окно выбора файла.
                            //Функция Execute() проверяет выбрал ли пользователь
                            //файл,если да то возвращает true.
//Присваиваем переменной типа AnsiString S имя файла.
S = OpenDialog1->FileName;
//Открываем с помощью текстового редактора Мемо1 выбранный файл.
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
//Если переменная S не равна пустой строке,то
if (S!="")
//Сохраняем файл.
{Memo1->Lines->SaveToFile(S);
//Все изменения в Memo1 сбрасываются.
Memo1->Modified=false;
}else //иначе
//Сохранить как:
N4->Click();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
//Если выбран файл то выполнить.
if (SaveDialog1->Execute())
//Присваиваем переменной S выбранный файл.
S = SaveDialog1->FileName;
//Сохраняем с помощью текстового редактора Мемо1 выбранный файл.
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
//Все изменения в Memo1 сбрасываются.
Memo1->Modified=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
//При нажатии на кнопку выход,закрываем форму.
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N15Click(TObject *Sender)
{
//Выбираем нужный шрифт.
FontDialog1->Font->Color=Memo1->Font->Color;
FontDialog1->Font->Style = Memo1->Font->Style;
FontDialog1->Font->Size = Memo1->Font->Size;
FontDialog1->Font->Charset = Memo1->Font->Charset;
FontDialog1->Font->Name = Memo1->Font->Name;
if (FontDialog1->Execute())
 
Memo1->Font->Color = FontDialog1->Font->Color;
Memo1->Font->Style = FontDialog1->Font->Style;
Memo1->Font->Size = FontDialog1->Font->Size;
Memo1->Font->Charset = FontDialog1->Font->Charset;
Memo1->Font->Name = FontDialog1->Font->Name;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N14Click(TObject *Sender)
{
//Осуществляем перенос по словам.
if (Memo1->ScrollBars == ssBoth)
Memo1->ScrollBars = ssVertical;
else
Memo1->ScrollBars = ssBoth;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
//Присваивам компоненту StatusBar1 значение возвращаемое функцией  kol_vo_word,описаной выше.
StatusBar1->Panels->Items[5]->Text=StrToInt(kol_vo_word(Memo1->Text));
//Обьявляем переменную n типа AnsiString.
AnsiString n;
//Присваиваем содержимое Memo1 переменной n.
n = Memo1->Lines->Text;
//Присваиваем строке состояния 1-му ее элементу длину строки.
StatusBar1->Panels->Items[1]->Text= n.Length();
//Присваиваем строке состояния 3-му ее элементу позицию каретки.
StatusBar1->Panels->Items[3]->Text=IntToStr((int)Memo1->CaretPos.y+1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N12Click(TObject *Sender)
{
//Присваиваем выделенный текст компоненту FindDialog1 с фукцией поиска выделенного текста.
FindDialog1->FindTextA = Memo1->SelText;
//Открыть окно поиска.
FindDialog1->Execute();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FindDialog1Find(TObject *Sender)
{
int FoundAt,StartPos,Toend;
TSearchTypes Option;
 
//SelStart - определяет позицию символа в тексте.
//Пример курсивом выбираем третий символ слева,значить функция возвращает 3.
StartPos = Memo1->SelStart;
 
//Если текст выделен то,
if(Memo1->SelLength)
 
//Переменной StartPos присваиваем с конкатенацией,
// длину выделенного текста в символах.
StartPos+=Memo1->SelLength;  //Длина выделенного текста.
 
//Переменной Toend присваиваем разность числа символов в строке и
//позиции курсора в тексте.
Toend = Memo1->Text.Length() - StartPos; //разность.
 
//Если выбран атрибут "С учетом регистра" то
if (FindDialog1->Options.Contains(frMatchCase))
// С помощью функции SubString(StartPos+1,Toend) производим переход по позиции строки
//увеличивая индекс на 1.
//С помощью функции Pos(FindDialog1->FindTextA) ищем текст в установленной позиции.
FoundAt = StartPos +
Memo1->Text.SubString(StartPos+1,Toend).Pos(FindDialog1->FindTextA);
//иначе
else
// С помощью функции SubString(StartPos+1,Toend) производим переход по позиции строки
//увеличивая индекс на 1.
//С помощью функции LowerCase() приводим искомые символы к нижнему регистру.
//С помощью функции Pos(FindDialog1->FindTextA) ищем текст в установленной позиции.
FoundAt = StartPos +
Memo1->Text.SubString(StartPos+1,Toend).LowerCase().Pos(FindDialog1->FindTextA.LowerCase());
//Если кол-во найденных символов не равно начальной позиции.
if (FoundAt != StartPos)
{
//Увеличиваем счетчики кол-ва найденных символов и строки где найден символ впервые.
I++;
X++;
//Устанавливаем фокус на Мемо1.
Memo1->SetFocus();
//Уменьшаем количество найденных символов на 1 и устанавливаем новую позицию в тексте.
Memo1->SelStart = --FoundAt;
//Кол-во найденных символов,присваиваем кол-ву выделенных символов в Memo1.
Memo1->SelLength = FindDialog1->FindTextA.Length();
//Если счетчик равен единице то
if (X==1)
{
//С помощью компонента StatusBar1 выводим номер строки где найден символ впервые.
StatusBar1->Panels->Items[6]->Text="№ Строки, где найден символ впервые : "+IntToStr((int)Memo1->CaretPos.y+1);
}
}
//иначе
else
//С помощью функции ShowMessage выводим кол-во найденных символов в тексте.
ShowMessage("Кол-во найденных символов = "+IntToStr(I)+"   |    Искомый текст "+FindDialog1->FindTextA+"  | Поиск окончен.");
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::FindDialog1Close(TObject *Sender)
{
//При закрытии компонента FindDialog1 обнуляем статические глобальные переменные.
I=0;
X=0;
}
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if (Memo1->Modified)  //Если содержимое Мемо1 изменилось то выполнять,
{
 switch (Application->MessageBoxA("Текст в файле был изменен хотите сохранить изменения ?","Сохранение файла",
MB_YESNOCANCEL+MB_ICONQUESTION))
 
{case  IDYES:{ SaveDialog1->InitialDir=GetCurrentDir();
              if (S!=" ")
              {N3->Click();}
              else
              {N4->Click();}
             } break;
 case   IDNO: break;
 case   IDCANCEL:CanClose=false;
} }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N16Click(TObject *Sender)
{
WinExec(("Readme.exe"),SW_RESTORE);        
}
//---------------------------------------------------------------------------