Сохранение значений в текстовый файл

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "MaksProjektUnit.h"
#include <fstream.h>
 
#include <iostream.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString FileName;
AnsiString FileName2;
AnsiString str01 ;
  AnsiString str02;
  AnsiString str03;
 
bool NoReturn=false;
bool SetTimer1=false; // Проверяет установлен ли таймер
bool StartTest=false; // Сигнал, что тест начался
char DanOtv,PravOtv;
AnsiString Qwestions;
AnsiString Answers;//в этой строке будут
// хранится варианты ответов "0 - неверно 1 - верно 3 - не дано ответа"
AnsiString TempString2;
unsigned short otv;
unsigned long Seconds=0,Knopka=0,HowManyQwestions=0,NumberQwestions,temp,i,j,k,step=0;// какой очередной символ считывать
using namespace std;
// функция опознавания правильного ответа
 
void Proverka(){
     
if(DanOtv==PravOtv)
   {
   
   Form1->Label6->Font->Color=clGreen;
   Form1->Label6->Caption=" ВЕРНО ";
 
  if(Qwestions.c_str()[Knopka]=='2')  // проверка, был ли дан уже ответ (Для статистики)
 
    Qwestions.c_str()[Knopka]='1'; // записываем, что дали верный ответ
   }
   else
   {
   Form1->Label6->Font->Color=clRed;
   Form1->Label6->Caption=" НЕ ВЕРНО ";
 
  if(Qwestions.c_str()[Knopka]=='2')  // проверка, был ли дан уже ответ (Для статистики)
 
    Qwestions.c_str()[Knopka]='0'; // записываем, что дали НЕ верный ответ
   }
 
}
 
   /// Функция поиска вопроса с ответами в файле
   // На вход получаем номер вопроса, который нужно вывести и имя файла
void LoadQwestion (unsigned long NumberQwestion, AnsiString FileName){
      step=0;
      Form1->Memo1->Visible=true;
    ifstream f1 ;
      f1.open(FileName.c_str());
       if(!(f1))//не открыли файл
      { ShowMessage("Ошибка открытия файла");
         return ;
      }
 
   // если же открытие успешно, то начинаем работать с файлом
   Form1->Label1->Visible=false;// Приглашение на ввод из файла убираем
    // Окно для вопроса делаем видимым
  StartTest=true; // Признак, что запустили тест
   f1.seekg(0);// устанавливаем каретку в текстовом файле в начало
   for(i=0;i<=NumberQwestion; i++) // какой вопрос загружать
   {     
    do{
   f1.seekg(step);
       if(f1.peek()==EOF)
       {
       MessageDlg("Просмотр вопросов закончен, так как достигнут конец файла , Возможно , файл имеет неправильный формат",mtInformation,TMsgDlgButtons() << mbOK, 0);
 
      return; }
     step++;    Form1->Memo1->Visible=true;
   }while(f1.peek()!='%');
      }
    // теперь перед нами нужный вопрос ,
    // начинаем грузить из файла
    step++;
 
  j=0;
    // какая раньше была позиция символа
    for(i=step; (f1.peek()!='#')&&(!(f1.eof())); i++ )// пока не
    // встретится тег для ввода вопроса   (a)
            {
            f1.seekg(i);
            j++;// какую длину массива делать
            }
        k=0; // переменную K
        // аннулируем для посимвольного ввода и объявляем переменную для
        // длины строки
           TempString2.SetLength(j-1);// устанавливаем длину строки
       for (i=step;i<step+j-1; i++) {
          f1.seekg(i);
 
      TempString2.c_str()[k]=f1.peek();// выполняем посимвольный ввод в строку
 
             k++;
               }
    Form1->Memo1->Lines->Clear();
     Form1->Memo1->Lines->Add(TempString2);
     step=step+j;
        // теперь грузим ответы на вопросы
        // Максимум 4 ответа, если будут другие ответы
        // они автоматически отбросятся программой
        j=0;
 
        for (i=step;((f1.peek()!=EOF)&&(f1.peek()!='#')&&(f1.peek()!='%'))&&(!(f1.eof())); i++)
        {
         f1.seekg(i);
            j++;
        }
        TempString2.SetLength(j-1);k=0;
         for (i=step;i<step+j-1; i++) {
          f1.seekg(i);
          TempString2.c_str()[k]=f1.peek();// выполняем посимвольный ввод в строку
 
             k++;  }
             step=step+j;
        // теперь грузим ответы на вопросы
        // Максимум 4 ответа, если будут другие ответы
        // они автоматически отбросятся программой
        j=0;
        Form1->Button1->Visible=true;
Form1->Button1->Caption=TempString2;
 
        for (i=step;((f1.peek()!=EOF)&&(f1.peek()!='#')&&(f1.peek()!='%'))&&(!(f1.eof())); i++)
        {
         f1.seekg(i);
            j++;
        }
        TempString2.SetLength(j-1);k=0;
         for (i=step;i<step+j-1; i++) {
          f1.seekg(i);
          TempString2.c_str()[k]=f1.peek();// выполняем посимвольный ввод в строку
 
             k++;
 
}
 
Form1->Button2->Visible=true;
Form1->Button2->Caption=TempString2;
         step=step+j;
         j=0;
  for (i=step;((f1.peek()!=EOF)&&(f1.peek()!='#')&&(f1.peek()!='%'))&&(!(f1.eof())); i++)
        {
         f1.seekg(i);
            j++;
        }
        TempString2.SetLength(j-1);k=0;
         for (i=step;i<step+j-1; i++) {
          f1.seekg(i);
          TempString2.c_str()[k]=f1.peek();// выполняем посимвольный ввод в строку
 
             k++;
 
}
 
Form1->Button3->Visible=true;
Form1->Button3->Caption=TempString2;
             step=step+j;j=0;
  for (i=step;((f1.peek()!=EOF)&&(f1.peek()!='#')&&(f1.peek()!='%'))&&(!(f1.eof())); i++)
        {
         f1.seekg(i);
            j++;
        }
        TempString2.SetLength(j-1);k=0;
         for (i=step;i<step+j-1; i++) {
          f1.seekg(i);
          TempString2.c_str()[k]=f1.peek();// выполняем посимвольный ввод в строку
 
             k++;
 
}
 
Form1->Button4->Visible=true;
Form1->Button4->Caption=TempString2;
   // дальше ищем номер правильного ответа
   step=step+j;
  // ищем  номер правильного ответа
   step+2;
   f1.seekg(step);
   if((f1.peek()=='1')||(f1.peek()=='2')||(f1.peek()=='3')||(f1.peek()=='4'))
      Answers.c_str()[NumberQwestion]=f1.peek();
   else {
   MessageDlg("Ответ в файле задан некорректно, исправьте ответ в файле и возобновите тестирование",mtInformation,TMsgDlgButtons() << mbOK, 0);
 
   return ;
   }
      PravOtv=f1.peek();
 
    }
 
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
if(OpenDialog1->Execute()) {
// успешное открытие файла
// Если файл открыт успешно, то сбрасываем все параметры
     Memo1->Lines->Clear();
       FileName=OpenDialog1->FileName;
 
          // просматриваем количество вопросов в тесте
 
 
       //  Form1->Label3->Caption=IntToStr(NumberQwestions);
       ifstream f1;
       f1.open(FileName.c_str());
 
 
       if(!(f1))//не открыли файл
      { MessageDlg("При открытии файла произошла ошибка",mtError,TMsgDlgButtons() << mbOK, 0);
         return ;
      }
 
         HowManyQwestions=0;
         f1.seekg(0);
        i=j=0;
        do {
        do{
        f1.seekg(i);
        i++ ;
 
        }while((f1.peek()!='%')&&(f1.peek()!=EOF));
        if(f1.peek()=='%')
        HowManyQwestions++;
        }while(f1.peek()!=EOF);
 
          f1.close();
         StartTest=true;
          Answers.SetLength(HowManyQwestions);
          Qwestions.SetLength(HowManyQwestions); // сюда записываем результат теста
               Label3->Caption=IntToStr(HowManyQwestions);
                for(i=0;i<HowManyQwestions; i++){
Answers.c_str()[i]='2'; // инициализируем , что не дано ответа
Qwestions.c_str()[i]='2'; }
 Knopka=0;
 NoReturn==false; // сбрасываем переменную о подсказке неотвеченных ответов
 
                       // Работаем с интерфейсом
                       // что-то убираем , а что  то показываем
// Убираем показ статистики
Label7->Visible=false;
Label11->Visible=false;
Label12->Visible=false;
Label13->Visible=false;
Label14->Visible=false;
Label15->Visible=false;
Label16->Visible=false;
Image1->Visible=false;
 
 
// обеспечиваем показ кнопок
                Form1->Button6->Visible=false;
        Form1->Button5->Visible=true;
        Form1->Button6->Visible=true;
        Form1->Button7->Visible=true;
        LoadQwestion (Knopka,FileName);
              if(SetTimer1==true){// Если таймер установлен, то
 
     Timer1->Enabled=true;// включаем таймер и делаем
     // видимыми кнопки для показа времени
      Label8->Visible=true;
      Label9->Visible=true;
      Label10->Visible=true;
              }
 
 
 
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Label6->Caption="";
Button5->Visible=true;
if(Knopka>0) {
Knopka--;
if(Knopka==0)
 Button6->Visible=false;
step=0;
  LoadQwestion (Knopka,FileName);
    }
else Button6->Visible=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
Label6->Caption="";
Button6->Visible=true;
if(Knopka<HowManyQwestions-1){
Knopka++;
if(Knopka==HowManyQwestions-1)
Button5->Visible=false;
step=0;
     LoadQwestion (Knopka,FileName);                }
else Button5->Visible=false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  DanOtv='1';
  Proverka();
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  DanOtv='3';
  Proverka();
 
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   DanOtv='2';
   Proverka();
   }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
   DanOtv='4';
   Proverka();
   }
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
if(StartTest==true){
MessageDlg("Уже запущено тестирование, запуск таймера невозможен",mtInformation,TMsgDlgButtons() << mbOK, 0);
return ;
}
Button8->Visible=true;
TrackBar1->Visible=true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button8Click(TObject *Sender)
{
if(TrackBar1->Position!=0)// Если выделено не нулевое положение,
// То устанавливаем таймер
 SetTimer1=true;
 Button8->Visible=false;// спрячем кнопку
TrackBar1->Visible=false; // спрячем движок
 Seconds=30*TrackBar1->Position;
   Timer1->Enabled=false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(Seconds==0)
return;
Seconds=Seconds-1;
Label9->Caption=IntToStr(Seconds);
if(Seconds==0) {
MessageDlg("Время тестирования вышло",mtInformation,TMsgDlgButtons() << mbOK, 0);
// Выключаем таймер
Timer1->Enabled=false;
// выключаем Memo и кнопки
Memo1->Visible=false;
Image1->Visible=false;
Button1->Visible=false;
Button2->Visible=false;
Button3->Visible=false;
Button4->Visible=false;
Button5->Visible=false;
Button6->Visible=false;
  }
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
for(i=0;i<HowManyQwestions; i++){
if(Qwestions.c_str()[i]=='2') {
   if(NoReturn==false){
if(MessageDlg("Вы ответили не на все тесты, вернуться к тестированию?"
,mtWarning, TMsgDlgButtons() << mbYes<< mbNo, 0)==mrYes)
return ;
else NoReturn=true; }// Сигнал, чтобы не возвращаться
;  }             }
 
// И Подводим итоги!
       // Делаем видимыми кнопки статистики и невидимыми кнопки ответов
      //  делаем возможный запуск таймера
       StartTest=false;
 
       // показываем кнопки
       Label7->Visible=true;
Label11->Visible=true;
Label12->Visible=true;
Label13->Visible=true;
Label14->Visible=true;
Label15->Visible=true;
Label16->Visible=true;
 
 
Timer1->Enabled=false;
Button1->Visible=false;
Button2->Visible=false;
Button3->Visible=false;
Button4->Visible=false;
Memo1->Visible=false;
Label6->Caption="";
Label8->Visible=false;
Label9->Visible=false;
Label10->Visible=false;
Image1->Visible=true;
unsigned long prav,nevern,nodata;
prav=nevern=nodata=0;
  for(i=0;i<HowManyQwestions; i++)
  if(Qwestions.c_str()[i]=='2')
  nodata++;
  else if(Qwestions.c_str()[i]=='0')
  nevern++;
  else
  prav++;
 
  Label13->Caption=IntToStr(prav);
  Label14->Caption=IntToStr(nevern);
  Label15->Caption=IntToStr(nodata);
 
  str01=Label14->Caption;
 
  }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form1->Close();
}
 
 
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::Button9Click(TObject *Sender)
{
if(SaveDialog1->Execute()) {
               ;
   FileName2=SaveDialog1->FileName;
 
   ofstream out;
   out.open(FileName2.c_str());
 
   int dlina=str01.Length()
   ;
 
 
}
}
//---------------------------------------------------------------------------

TStringList  *SL = new TStringList;
SL->Add(Label13->Caption);
SL->Add(Label14->Caption);
SL->Add(Label15->Caption);
SL->SaveToFile("1.txt");
delete SL;