Приклад збереження результату роботи у файлі

Вологість

30.04.2017 12:59:57

V=84

30.04.2017 12:59:58

V=79

Вентиляція не працює

30.04.2017 12:59:59

V=81

30.04.2017 13:00:00

V=79

Вентиляція не працює

30.04.2017 13:00:01

V=87

30.04.2017 13:00:02

V=78

Вентиляція не працює

30.04.2017 13:00:03

V=91

Вентиляція працює

30.04.2017 13:00:04

V=89

30.04.2017 13:00:05

V=81

30.04.2017 13:00:31

V=76

Вентиляція не працює

30.04.2017 13:00:32

V=76

Вентиляція не працює

30.04.2017 13:00:33

V=79

Вентиляція не працює

30.04.2017 13:00:34

V=75

Вентиляція не працює

30.04.2017 13:00:35

V=87

30.04.2017 13:00:36

V=78

Вентиляція не працює

30.04.2017 13:00:37

V=94

Вентиляція працює

Текст програми

Form1

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if(!ComboBox1->Text.AnsiCompare("Оператор1")&&!Edit2->Text.AnsiCompare("Оператор1"))

{

Form2->Show();

Form1->Visible=False;

Form2->PageControl1->Pages[1]->TabVisible=false;

Form2->PageControl1->Pages[2]->TabVisible=false;

Form2->PageControl1->Pages[3]->TabVisible=false;

}

else

{

if(!ComboBox1->Text.AnsiCompare("Оператор2")&&!Edit2->Text.AnsiCompare("Оператор2"))

{

Form2->Show();

Form1->Visible=False;

Form2->PageControl1->Pages[1]->TabVisible=false;

Form2->PageControl1->Pages[2]->TabVisible=false;

Form2->PageControl1->Pages[3]->TabVisible=false;

}

else

{

if(!ComboBox1->Text.AnsiCompare("Адміністратор")&&!Edit2->Text.AnsiCompare("Адміністратор"))

{

Form2->Show();

Form1->Visible=False;

Form2->PageControl1->Pages[1]->TabVisible=false;

Form2->PageControl1->Pages[2]->TabVisible=false;

Form2->PageControl1->Pages[3]->TabVisible=false;

}

else

{

Form3->Show();

Edit2->Clear();

}

}

}

}

Close();

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

}

//---------------------------------------------------------------------------

Form2

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

Close();

}

Close();

//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)

{

if((Form2->ComboBox2->Text!="")&(Form2->ComboBox3->Text!="")&

(Form2->ComboBox4->Text!="")&(Form2->ComboBox6->Text!="")&

(Form2->ComboBox9->Text!="")&(Form2->ComboBox13->Text!=""))

{

TabSheet2->Show();

Form2->PageControl1->Pages[1]->TabVisible=true;

}

else

{

Form5->Show();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)

{

if((Form2->ComboBox10->Text!="")&(Form2->ComboBox11->Text!="")&

(Form2->ComboBox12->Text!=""))

{

Button13->Enabled=True;

}

else

{

Form5->Show();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button5Click(TObject *Sender)

{

if((Form2->ComboBox2->Text!="")&(Form2->ComboBox3->Text!="")&

(Form2->ComboBox4->Text!="")& (Form2->ComboBox6->Text!="")&

(Form2->ComboBox9->Text!="")& (Form2->ComboBox13->Text!=""))

{

TabSheet2->Show();

Form2->PageControl1->Pages[1]->TabVisible=true;

Form2->PageControl1->Pages[3]->TabVisible=true;

}

else

{

Form5->Show();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button6Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button7Click(TObject *Sender)

{

TabSheet3->Show();

Form2->PageControl1->Pages[2]->TabVisible=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button12Click(TObject *Sender)

{

if((Form2->ComboBox10->Text!="")&(Form2->ComboBox11->Text!="")&

(Form2->ComboBox12->Text!=""))

{

Button13->Enabled=True;

}

else

{

Form5->Show();

}

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button13Click(TObject *Sender)

{

if(!Button13->Caption.Trim().AnsiCompare("²нсталяц³я")) Button13->Caption="Де³нсталяц³я";

else

Button13->Caption="²нсталяц³я";

for (int i=ProgressBar1->Min; i<=ProgressBar1->Max; i++)

{

{ProgressBar1->Position = i;

Next();

}

Button7->Enabled=True;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Timer1Timer(TObject *Sender)

{

Memo2->Lines->Add(FormatDateTime("dd.mm.yyy hh:mm:ss",Now()));

static int k=1;

AnsiString s=(AnsiString) "V=";

int V=random (20)+75;

s=s+(AnsiString)V;

Memo2->Lines->Add(s);

Series1->AddXY(k,V);

if(V<80)

{Memo2->Lines->Add("Вентиляц³я не працюº");

}

if(V>90)

{Memo2->Lines->Add("Вентиляц³я працюº");

}

k++;

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button9Click(TObject *Sender)

{

if(!Button9->Caption.Trim().AnsiCompare("Ïóñê"))

Button9->Caption="Ñòîï";

else

Button9->Caption="Ïóñê";

Timer1->Enabled=!(Timer1->Enabled);

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button10Click(TObject *Sender)

{

Memo2->Clear();

Series1->Clear();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button11Click(TObject *Sender)

{

Memo2->Lines->SaveToFile("dani.txt");

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Button14Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::Image2Click(TObject *Sender)

{

}

//---------------------------------------------------------------------------

Form3

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{

Close();

}

Close();

//---------------------------------------------------------------------------

Form5

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Close();

}

//-----------