Kaceka2016/interface/ProjektCrane.cpp
2016-11-17 08:56:06 +01:00

67 lines
2.0 KiB
C++

//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include <fstream.h>
#include <String>
#include <windows.h>
#include "ProjektCrane.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
StringGrid1->Cells[0][1] = "1";
StringGrid1->Cells[0][2] = "2";
StringGrid1->Cells[0][3] = "3";
StringGrid1->Cells[0][4] = "4";
StringGrid1->Cells[0][5] = "5";
StringGrid1->Cells[0][6] = "6";
StringGrid1->Cells[0][7] = "7";
StringGrid1->Cells[0][8] = "8";
StringGrid1->Cells[0][9] = "9";
StringGrid1->Cells[0][10] = "10";
StringGrid1->Cells[1][0] = "A";
StringGrid1->Cells[2][0] = "B";
StringGrid1->Cells[3][0] = "C";
StringGrid1->Cells[4][0] = "D";
StringGrid1->Cells[5][0] = "E";
StringGrid1->Cells[6][0] = "F";
StringGrid1->Cells[7][0] = "G";
StringGrid1->Cells[8][0] = "H";
StringGrid1->Cells[9][0] = "I";
StringGrid1->Cells[10][0] = "J";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String mystr = Edit1->Text;
ofstream myfile;
myfile.open("instructions.txt");
myfile << mystr.c_str();
myfile.close();
Edit1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------