74 lines
2.1 KiB
Plaintext
74 lines
2.1 KiB
Plaintext
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
#include <iostream.h>
|
|
#include <fstream.h>
|
|
#include <String>
|
|
#include <windows.h>
|
|
#include "ProjektCrane.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TForm1 *Form1;
|
|
|
|
|
|
int writefile(String A)
|
|
{
|
|
ofstream myfile;
|
|
myfile.open("example.txt");
|
|
myfile << A;
|
|
myfile.close();
|
|
return 0;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
__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
|
|
writefile(mystr);
|
|
Edit1->Clear();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm1::Button2Click(TObject *Sender)
|
|
{
|
|
Application->Terminate();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm1::Button3Click(TObject *Sender)
|
|
{
|
|
Application->Terminate();
|
|
}
|
|
//---------------------------------------------------------------------------
|