Убрать непонятные цифры из имени формы

#include <vcl.h>
#pragma hdrstop
 
#include "Classification.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
 
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    //Form2->SetBounds(0, 0, Screen->Width, Screen->Height);
    SaveGraf->Enabled=false;
    Button_Classification->Enabled=true;
    Button_CreateGraf->Enabled=true;
    Save->Enabled=false;
    SaveAs->Enabled=false;
    Table->Cells[0][0]="N";
    Table->Cells[0][1]="H(м)";
    Table->Cells[0][2]="классификация";
    Table->Cells[0][3]="характер";
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::OpenClick(TObject *Sender)
{
    Table->RowCount = 5;
    //Table->FixedCols = 1;
    if(Save->Enabled==true) //если остались не сохраненные данные, то выводится сообщение с прдложением сохранить их
    {
 
    int result = (Application->MessageBox(UnicodeString(L"Перед открытием файла, убедитесь что вы сохранили данные").w_str(),
    L"Сохранить данные?",MB_YESNOCANCEL|MB_ICONQUESTION));
 
    switch(result)
    {
    case IDYES:
    SaveClick(Sender);
 
    case IDCANCEL:
    return;
    }
    }
 
    if(!odFile->Execute()) //Получение имени файла с исходными данными
    return;
    OrFileName=odFile->FileName;
        if (OrFileName.Pos(".road")==0)
    {
    OrFileName+=L".road";
    }
 
    Form2->Caption = L"Классификация отметок дорог";
    Form2->Caption += L" - "+ExtractFileName(ChangeFileExt(odFile->FileName,L" " ));
    ifstream fin;
    fin.open(OrFileName.c_str(), ios::binary );
    if (!fin.is_open()) { //Проверка открылся файл или нет
    MessageDlg("Не удалось открыть файл"+odFile->FileName, mtError, TMsgDlgButtons() << mbOK,0);
    return;
    }
    fin.seekg(0,ios::end);
    int k;
    k = fin.tellg(); //Считывание кол-ва элементов в файле с исходными данными
 
    fin.seekg(0);
    try //Выделение памяти для динамического массива с исходными данными и проверка ошибки выделения памяти
    {
    ArrValues.Length = k/4;
    }
    catch (...)
    {
 
    return;
    }
    for(int i =0; i<ArrValues.Length; i++) //Запись исходных данных в массив
    {
 
    fin.read((char*)&ArrValues[i].Point, sizeof(float));
 
    }
 
    fin.close();
 
    Table->ColCount=(ArrValues.Length);
    for(int i =0; i<ArrValues.Length; i++) //Запись исходных данных в табличный редактор
    {
        Table->Cells[i+1][0]=i+1;
        Table->Cells[i+1][1]=ArrValues[i].Point;
    }
 
 
    ArrValues.Length=0; //Освобождение памяти для массива с исходными данными
    Create->Enabled=true;
    Save->Enabled=true;
    SaveAs->Enabled=true;
    Button_Classification->Enabled=true;
    Button_CreateGraf->Enabled=true;
    SaveGraf->Enabled=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Tablefloat (TObject *Sender) //Выделение памяти для массива с данными и запись в него данных из табличного редактора
{
 
    try //Выделение памяти для массива с данными
    {
    ArrValues.Length=Table->ColCount-1;
    }
    catch(...)
    {
        MessageDlg("Ошибка выделения памяти", mtError, TMsgDlgButtons() <<mbOK,0);
            return;
    }
    for(int i=0; i<ArrValues.Length;i++) //Проверка считываемых значений и их запись
    {
        ArrValues[i].Point=StrToFloat(Table->Cells[i+1][1]);
    }
 
}
 
void __fastcall TForm2::SaveClick(TObject *Sender)
{
 
    ofstream fout;
    float a;
    OrSaveName = odFile->FileName;
 
    if(OrSaveName=="*") //получаем имя файла, если оно неизвестно
    {
        if(!OrSD->Execute())
        return;
        OrSaveName=OrSD->FileName;
    }else OrSaveName = odFile->FileName;
 
 
 
    if (OrSaveName.Pos(".road")==0)
    {
    OrSaveName+=L".road";
    }
 
 
 
    Tablefloat(Sender); //Выделение памяти для массива с данными и запись в него данных из табличного редактора
    fout.open(OrSaveName.c_str(), ios::binary); //Открытие файла
    for(int i=0; i<ArrValues.Length ; i++){ //Запись данных в файл
    a=ArrValues[i].Point;
    fout.write((char*)&a, sizeof(a));
    }
    Save->Enabled=false; //Выключение доступности кнопки "Сохранить"
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SaveAsClick(TObject *Sender)
{
    if(!OrSD->Execute()) //Получение имени файла
    return;
    OrSaveName=OrSD->FileName;
        if (OrSaveName.Pos(".road")==0) {
    OrSaveName+=L".road";
    }
 
        ofstream fout;
    Tablefloat(Sender); //Выделение памяти для массива с данными и запись в него данных из табличного редактора
    fout.open(OrSaveName.c_str(), ios::binary); //Открытие файла
    float a;
    for(int i=0; i<ArrValues.Length ; i++){ //Запись данных в файл
    a=ArrValues[i].Point;
    fout.write((char*)&a, sizeof(a));
    }
    Save->Enabled=false; //Выключение доступности кнопки "Сохранить"
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CreateClick(TObject *Sender)
{
    if(Save->Enabled==true){
        if (Application->MessageBox(UnicodeString(L"Перед открытием файла, убедитесь что вы сохранили данные").w_str(),
        L"Сохранить данные?"/*Application->Title.w_str()*/,MB_YESNO|MB_ICONQUESTION/*|MB_DEFBUTTON2*/)==ID_YES)
        SaveClick(Sender);
    }
    Form2->Caption = L"Классификация отметок дорог";
  for(int i=1;i<Table->ColCount;i++)
  {
    for(int j=1; j<Table->RowCount;j++)
    {
      Table->Cells[i][j] = "";
    }
  }
  Table->RowCount=5;
 
  Button_CreateGraf->Enabled=true;   //Выключение доступности для кнопок меню
  Button_Classification->Enabled=false;
  Button_Classification->Enabled=false;
  Save->Enabled=true;
  SaveAs->Enabled=true;
  SaveGraf->Enabled=false;
  Create->Enabled=false;
  OrSaveName="*";
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::AddRowClick(TObject *Sender)
{
 
    Table->RowCount++;//добавление строки
    Table->Row=Table->RowCount-1;
    Table->Rows[Table->Row]->Clear();
    Table->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ChoiseRowClick(TObject *Sender)
{
    Table->Options=Table->Options>>goEditing<<goRowSelect;//выделение всей строки таблицы
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ChoiseCellsClick(TObject *Sender)
{
    Table->Options=Table->Options>>goRowSelect;//выделение одной ячейки таблицы
}
//---------------------------------------------------------------------------
void __fastcall TForm2::AddColClick(TObject *Sender)
{
    Table->ColCount++;//добавление столбца таблицы
    Table->Col=Table->ColCount-1;
    Table->Cols[Table->Col]->Clear();
    Table->SetFocus();
}
void __fastcall TForm2::DeleteRowClick(TObject *Sender)
{
    if (Table->RowHeights[1]==-1) //если нечего удалять (нет строк с данными)
    return;
 
    if (Application->MessageBox(Format(L"Вы действительно хотите удалить \"запись\"№%d?",
    ARRAYOFCONST((Table->Row))).w_str(),
    Application->Title.w_str(),
    MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2) !=ID_YES)
    return;
    if (Table->RowCount>2){
    int r=Table->Row; //т.к. DeleteRow перемещает выделение на посл. строку
    Table->DeleteRow(Table->Row);
    if(r>Table->RowCount)
    Table->Row=r;
    }
    else     //Table->RowCount==2) - посл. строка
    {
    Table->RowHeights[1]=-1; // -1, т.к. если 0, то останется раздел. линия
    Table->Options=Table->Options>>goEditing;
 
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::SetTheValueH1Click(TObject *Sender)
{
     float H1 = StrToFloat(H1Values->Text);//ввод значения глубины отметки
     ShowMessage("Классификация задана");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::SetTheValueH2Click(TObject *Sender)
{
     float H1 = StrToFloat(H2Values->Text);//ввод значение высоты отметки
     if(H1<=0)
     {
         ShowMessage("некорректное значение");
     }
     ShowMessage("Классификация задана");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button_ClassificationClick(TObject *Sender)
{
 
    if ((H1Values->Text)==""||(H2Values->Text)==""){
    MessageDlg(L"Вы ввели не все значения для классификации", mtConfirmation, TMsgDlgButtons() << mbOK,0);
        return;
    }
    Table->Invalidate();
    float cells;
    float min;
    float max;
    int i;
    int j;
    int t =0;
    if(H1Values->Text.IsEmpty())
  {
      ShowMessage("Введите значение глубины отметки");
  }
    if(H2Values->Text.IsEmpty())
  {
      ShowMessage("Введите значение высоты отметки");
  }
    float H1 = StrToFloat(H1Values->Text);
    float H2 = StrToFloat(H2Values->Text);
    min=StrToFloat(Table->Cells[1][1]);
    max=StrToFloat(Table->Cells[1][1]);
  for( j = 1; j < Table->ColCount; j++)//классификация данных таблицы
  {
    cells = StrToFloat(Table->Cells[j][1]);
    if (min>cells)
    {
      min=cells;
      Table->Cells[j][4]=L"минимальное";
    }
    if (max<cells)
    {
      max=cells;
      Table->Cells[j][4]=L"максимальное";
    }
    if(cells<0)
    {
      Table->Cells[j][2]=L"выемка";
    }
    if(cells>0)
    {
      Table->Cells[j][2]=L"насыпь";
    }
    if(cells<H1)
    {
      Table->Cells[j][3]=L"глубокая";
    }
    if(cells>H2)
    {
      Table->Cells[j][3]=L"высокая";
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button_CreateGrafClick(TObject *Sender)
{
    int i;//создание графика профиля дороги
    for( i = 1; i < Table->ColCount; i++)
    {
    Graf->Series[0]->AddXY(Table->Cells[i][0].ToDouble(), Table->Cells[i][1].ToDouble());
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::SaveGrafClick(TObject *Sender)
{
    Table->Options>>goEditing;  //Отключение режимма редактирования
   if(!GrafSD->Execute())
    return;
    if (GrafSD->FileName.Pos(".bmp")==0)
    {
        GrafSD->FileName=GrafSD->FileName + ".bmp";
    }
  //ResSaveName=GrafSD->FileName;  //Получение имени файла
  Graf->SaveToBitmapFile(GrafSD->FileName); //Сохранеие графика в файл
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::TableKeyPress(TObject *Sender, System::WideChar &Key)
{
    Caption=int(Key);//контроль вводимых значений таблицы
    if (! (Key>='0' && Key<='9' || Key==FormatSettings.DecimalSeparator || Key==L'+' || Key==L'-' || //блокировка ввода таблицы исходных данных
    Key==L'.') && Key!=VK_BACK && Key!=3 && Key!=22 && Key!=24 && Key!=26)
    {
    ShowMessage(L"Недопустимый символ "+UnicodeString(Key)+L'\'');
    Key=0;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::H1ValuesKeyPress(TObject *Sender, System::WideChar &Key)
{
    Caption=int(Key);//контроль вводимых значений H1
    if (! (Key>='0' && Key<='9' || Key==FormatSettings.DecimalSeparator || Key==L'+' || Key==L'-' || //блокировка ввода таблицы исходных данных
    Key==L'.') && Key!=VK_BACK && Key!=3 && Key!=22 && Key!=24 && Key!=26)
    {
    ShowMessage(L"Недопустимый символ "+UnicodeString(Key)+L'\'');
    Key=0;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::H2ValuesKeyPress(TObject *Sender, System::WideChar &Key)
{
    Caption=int(Key);//контроль вводимых значений H2
    if (! (Key>='0' && Key<='9' || Key==FormatSettings.DecimalSeparator || Key==L'+' || //блокировка ввода таблицы исходных данных
    Key==L'.') && Key!=VK_BACK && Key!=3 && Key!=22 && Key!=24 && Key!=26)
    {
    ShowMessage(L"Недопустимый символ "+UnicodeString(Key)+L'\'');
    Key=0;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ExiteClick(TObject *Sender)
{
    if (Application->MessageBoxW(L"Вы действительно хотите выйти?",L"Выход из программы", MB_YESNO + MB_ICONQUESTION) != IDNO) //Вывод диалогового окна на экран с кнопками Да, Нет о  подтверждении выхода из программы
    {
    if(Save->Enabled==true) //если остались не сохраненные данные, то выводится сообщение с прдложением сохранить их
    {
 
    int result = (Application->MessageBox(UnicodeString(L"Перед открытием файла, убедитесь что вы сохранили данные").w_str(),
    L"Сохранить данные?",MB_YESNOCANCEL|MB_ICONQUESTION));
 
    switch(result)
    {
    case IDYES:
    SaveClick(Sender);
 
    case IDCANCEL:
    return;
    }
    }
    exit(1);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::TableDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    UnicodeString s;
    s=Table->Cells[ACol][ARow];
    if (s.IsEmpty())
        return;
    if (s =="минимальное")
    {
    Table->Canvas->Brush->Color=clSkyBlue;
    /*else
    StringGrid2->Canvas->Brush->Color=clBlue;*/
    TRect r=Rect; // StringGrid2->Canvas->FillRect(Rect);
    Table->Canvas->TextRect(r,r.Left+6,r.Top+2,Table->Cells[ACol][ARow]); //StringGrid2->Canvas->TextOut(Rect.Left+2, Rect.Top+2, StringGrid2->Cells[1][1]);
    }
    if (s =="максимальное")
    {
    Table->Canvas->Brush->Color=clGreen;
    /*else
    StringGrid2->Canvas->Brush->Color=clBlue;*/
    TRect r=Rect; // StringGrid2->Canvas->FillRect(Rect);
    Table->Canvas->TextRect(r,r.Left+6,r.Top+2,Table->Cells[ACol][ARow]); //StringGrid2->Canvas->TextOut(Rect.Left+2, Rect.Top+2, StringGrid2->Cells[1][1]);
    }
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm2::DeleteColClick(TObject *Sender)
{
    if (Table->RowHeights[1]==-1) //если нечего удалять (нет строк с данными)
    return;
 
    if (Application->MessageBox(Format(L"Вы действительно хотите удалить \"запись\"№%d?",
    ARRAYOFCONST((Table->Col))).w_str(),
    Application->Title.w_str(),
    MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2) !=ID_YES)
    return;
    if (Table->ColCount>2){
    int r=Table->Col; //т.к. DeleteRow перемещает выделение на посл. строку
    Table->DeleteColumn(Table->Row);
    if(r>Table->RowCount)
    Table->Col=r;
    }
    else     //Table->RowCount==2) - посл. строка
    {
    Table->RowHeights[1]=-1; // -1, т.к. если 0, то останется раздел. линия
    Table->Options=Table->Options>>goEditing;
 
    DeleteCol->Enabled=false;
}
//---------------------------------------------------------------------------
}
 
void __fastcall TForm2::SaveTXTClick(TObject *Sender)
{
 
if(!(OrSD -> Execute()))
    return;
    OrSaveName=OrSD -> FileName;
    if (OrSaveName.Pos(".txt") == 0 )
    OrSaveName += L".txt";
    std::auto_ptr<TStringList> SL(new TStringList);
 
    for(int i=0; i<Table->RowCount; i++)//Запись данных в файл
    {
    Table->Rows[i+1]->Delimiter='\t'; //Символ разделитель
    SL->Add(Table->Rows[i+1]->DelimitedText);
    }
    SL->SaveToFile(OrSaveName+".txt");
    Create->Enabled=true;
    Save->Enabled=true;   //Выключение доступности кнопки "Сохранить"
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::H1ValuesExit(TObject *Sender)
{
    if(StrToFloat(H1Values->Text)>= 0 )
    {
    ShowMessage(L"глубина отметки должна быть меньше 0");
    }
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
void __fastcall TForm2::H2ValuesExit(TObject *Sender)
{
   if(StrToFloat(H2Values->Text)<= 0 )
    {
    ShowMessage(L"высота отметки должна быть больше 0");
    }
}
//---------------------------------------------------------------------------

    Caption=int(Key);