Рефакторинг

// Рефакторинг переменных
 
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#include <string.h>
#include <sstream.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Unit1.h"
// Начало
#pragma package(smart_init)
#pragma resource "*.dfm"
using namespace std;
int l;
TForm1 *Form1;
// Форма
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
// Класс "Рефакторинг"
class Renamer {
                public:
                        Renamer(){}// Constructor
                        String Rename( String inp, String var, String newvar)
                        {
                          /*
                          Заганяем текст из мемо в переменную inp, в var и newvar
                          заносим данные из эдитов. Далее ищем в коде совпадения
                          с var и меняем их на newvar. Выводим текст после измене-
                          ния обратно в мемо.
                          */
 
                          String working = inp;
                          int i, j;
                          i = working.Pos(var);
                          j = var.Length();
 
                          working.Delete(i,j);
                          working.Insert(newvar, i);
                          inp = working;
                          return inp;
                        }
              };
// Собственно и выполняем рефакторинг
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    l = Memo1->Lines->Count;
    String var=Edit1->Text;
    String newvar=Edit2->Text;
    for(int i = 0; i < l; i++){
   String inp=Memo1->Lines->Strings[i];
  
       Renamer ob;
       //ob.Rename(inp, var, newvar);
       Memo1->Clear();
       Memo1->Lines->Add(ob.Rename(inp, var, newvar));
    }
              Edit1->Text="До";
              Edit2->Text="После";
 
}
// Событие, при нажатии на поле оно очищается
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
 Edit1->Clear();
}
// Событие, при нажатии на поле оно очищается
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
 Edit2->Clear();
}
// Выход из программы
void __fastcall TForm1::SpeedButton4Click(TObject *Sender)
{
  Form1->Close();
}
// Открываем текстовый файл
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
  AnsiString FileName=OpenDialog1->FileName;
     if(OpenDialog1->Execute())
        Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
// Сохраняем текстовый файл
void __fastcall TForm1::SpeedButton3Click(TObject *Sender)
{
   AnsiString FileName=SaveDialog1->FileName;
   if (SaveDialog1->Execute())
   Memo1->Lines->SaveToFile(SaveDialog1->FileName);
   Memo1->Clear();
}
//Собственно конец