7234324234234

← разместить еще код

Расшаренный код:

#include <vcl.h>
#pragma hdrstop
 #include <fstream>
#include <iostream>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 using namespace std;
TForm1 *Form1;
	 int b=0;
	 int mass[100];
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}

void __fastcall TForm1::N3Click(TObject *Sender)

{if (OpenDialog1->Execute())
	   {	 TStringList * SL = new TStringList;
		SL->LoadFromFile(OpenDialog1->FileName);





			  StringGrid1->RowCount=StrToInt(SL->Strings[0]);
			  StringGrid1->ColCount=5;


				 int k=1,q=1;;
			 for (int i=1; i<((StrToInt(SL->Strings[0]))*4); i++) { {

			  if (k==5) {
				   k=1;
				   q++;
				  }
			 StringGrid1->Cells[k][q]=SL->Strings[i];
             k++;
			 }      }

      //Открытие Файла и заполнение таблицы (1ый элемент файла кол-во строк)

	}     }






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

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  int myfile;
StringGrid1->Cells[0][0]="№ рейса";
StringGrid1->Cells[1][0]="Дата выезда";
StringGrid1->Cells[2][0]="Пункт назначения";
StringGrid1->Cells[3][0]="Время отправления";
StringGrid1->Cells[4][0]="Кол-во сободных мест";
for (int i = 1; i < 100; i++) {
StringGrid1->Cells[0][i]=i;   }
StringGrid1->ColWidths[0]=73;
StringGrid1->ColWidths[1]=100;
StringGrid1->ColWidths[2]=140;
StringGrid1->ColWidths[3]=150;
StringGrid1->ColWidths[4]=175;

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)    //Добавить строку
{
StringGrid1->RowCount++;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button4Click(TObject *Sender)    //Удалить строку
{
int k=StringGrid1->Row;

if (k>0)

{ for (int i=k+1; i<StringGrid1->RowCount; i++)

for (int j=0; j<StringGrid1->ColCount; j++)

if (j==0) StringGrid1->Cells[0][i]=IntToStr(i);

else

StringGrid1->Cells[j][i-1]=StringGrid1->Cells[j][i];

StringGrid1->RowCount--;

}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{        int k=1,q=1;
 if (SaveDialog1->Execute())
	{

TStringList *SL=new TStringList;
SL->Add(IntToStr(StringGrid1->RowCount));


for(int i=0;i<(StringGrid1->RowCount*4);i++)
		{  if (k==5) {
				   k=1;
				   q++;
				  }
	   SL->Add(StringGrid1->Cells[k][q]);

		k++;

		}
		SL->SaveToFile(SaveDialog1->FileName);




//Сохранить файл
}  }
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{       float x;
	  if (Key==13) {
	  Memo1->Lines->Add(Edit1->Text);
	  }

}
//---------------------------------------------------------------------------



void __fastcall TForm1::Edit2KeyPress(TObject *Sender, System::WideChar &Key)
{
  if (Key==13) {
	  Memo1->Lines->Add(Edit2->Text);
	  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, System::WideChar &Key)
{
	if (Key==13) {
	  Memo1->Lines->Add(Edit3->Text);
	  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit4KeyPress(TObject *Sender, System::WideChar &Key)
{
     if (Key==13) {
	  Memo1->Lines->Add(Edit4->Text);
	  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{     int *ma = new int [StringGrid1->RowCount];
	   for (int i=1; i < (StringGrid1->RowCount); i++) {
		ma[i]=0;
	  }





   for (int i=1; i < (StringGrid1->RowCount); i++) {
	  if ((StringGrid1->Cells[2][i])!=(Memo1->Lines->Strings[2])) {

				b=1;
	  }
	  else   {ma[i]++;  }
   }
   for (int i=1; i < (StringGrid1->RowCount); i++) {
	  if ((StringGrid1->Cells[1][i])!=(Memo1->Lines->Strings[3])) {
				b=1;

	  }
	  else   {ma[i]++;  }
   }
   for (int i=1; i < (StringGrid1->RowCount); i++) {
	  if (((StrToInt(StringGrid1->Cells[4][i]))-(StrToInt(Memo1->Lines->Strings[1])))<0) {
			b=1;

	  }
	  else   {ma[i]++;  }
   }
   for (int i=1; i < (StringGrid1->RowCount); i++) {
	  if ((StrToInt(Memo1->Lines->Strings[4])-(StrToInt(StringGrid1->Cells[3][i])))>0) {
			b=1;

	  }
	  else   {ma[i]++;  }
   }

	  for (int i = 0; i < (StringGrid1->RowCount); i++) {
		 if (ma[i]==4) {
		  Memo2->Lines->Add("Время отправки="+StringGrid1->Cells[3][i]);
		  b=2;
		 }
	  }
	  if (b!=2) {
         Memo2->Lines->Add("Невозможно выполнить заказ");
	  }

       for (int i=1; i < (StringGrid1->RowCount); i++) {
		ma[i]=0;
	  }

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Lines->Clear();
Memo1->Lines->Add("Memo1");
}
//---------------------------------------------------------------------------